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ABSTRACT 

This thesis describes the programming of amidship 
structural design procediores for the IBM-704 computer. 

Two problems, the selection of scantlings and plating 
for the amidships portion of a ship's hull and the design of 
a transverse web frame are programmed for a digital computer. 
A detailed explanation of the programs and a brief dis- 
cussion of the methods of approach for adapting these design 
procedvires to a digital computer are included. 

Using rather simple engineering criteria, these programs 
essentially carry out the design procedures for the amidship' 
structure. The inputs are those forces, moments, dimensions 
and material characteristics which are either known or can 
be readily determined by the user. The information resulting 
from these programs is given in a convenient form. The pro- 
grams have been written in such a manner that they may be 
easily followed and altered. 

It is strongly emphasized that these programs are 
written with a factor of safety of 1.0 on the yield strength 
of the material. By suitably selecting the input information 
any reasonable factor of safety may be obtained. 

Conclusions ; 

a. The results of experiments regarding structural 
components can be readily incorporated into programs 
such as those contained in this thesis. 

b. Digital computers can be used to solve extremely 
complex structural problems. 

c. In general, the limitations imposed by the computer 
on a problem are less restrictive than those im- 
posed by manual methods. 
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I. INTRODUCTION 



The purpose of this work is to write computer programs 
which will select component members for a destroyer type 
hull such as that shown in Pigvire 1. This investigation has 
been divided into three parts, the first two of which are 
incorporated into this thesis: 

(1) Write a computer program which will select 
scantlings and plating for an amidship’s section 
of prescribed dimensions under the influence of 
bending moments and hydrostatic forces, 

(2) Write a computer program which will size the 
web frame for the amidships section under the in- 
fluence of internal and external forces, 

(3) Review and analyze available engineering 
criteria and change the above programs in order 
that the design calculations may be carried out as 
accxirately as possible. 

In writing this thesis, knowledge of progrsimming for 
the IBM 704 digital computer is assvimed on the part of the 
reader. Selected parts of Ref, 1 are considered required 
reading before delving into the details of the programs in- 
cluded in this thesis. Part B of the Procedure and Part 1 
of Appendix A are included only as aids and are not in 
themselves a complete review of programming procedures. 
Several philosophies have prevailed throughout the 
writing of these progreuns. Foremost, the simplicity of the 
program routines is such that users may readily understand 



the processes being carried out. Since these programs 
essentially form the bases for more precise programs of this 
nature, the computations are broken up into relatively short 
steps to facilitate the alteration of criteria used in the 
program. The criteria used in these programs are of 
necessity quite elementary. This restriction was one of the 
author's, not of the computer. An effort has been made to 
maintain a factor of safety of 1,0 throughout the program 
within the bounds of the criteria used. This was done since 
a uniformly strong structure is considered to be most de- 
sirable . 

The program for selecting scantlings has been written 
for optimizing the amidships design within ranges of web 
frame spacing and numbers of equally spaced longitudinals. 

The program for computing the dimensions of the transverse 
web frame follows prescribed rules for designing built up 
beams. The web thickness is kept constant and other dimen- 
sions are varied. Both programs operate on the stress 
schedule approach of design. 

The program for sizing the transverse web frame requires 
that the number of longitudinals and frame spacing be speci- 
fied and remain constant throughout the program. This is 
due to the limitations involved in Introducing ship's weights 
into the problem. 

Admittedly there are shortcomings to be found in these 
programs. These programs are believed to be the first of 
this type, and it is felt that a considerable amovuat of im- 
provement is both possible and probably quite desirable. 
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It is emphasized that the answers, which these programs 
produce, are not in themselves conclusive. These answers do 
require a fair amount of evaluation. However, the idea of 
condensing several days of manual calculations into as many 
minutes of machine calculations makes this project a very 
worthwhile endeavor indeed. 



II. PROCEDURE 



PART A 

PREPARATION OP SCANTLING DATA 

The data which describes the shape of the scantlings 
was obtained directly from the AISC Manual (1957) for ”T” 
sections and was computed from the information tabulated 
in ref. 2 in the case of ”I-T” sections. This latter infor- 
mation was calculated by hand but has not been completely 
verified for accuracy. 

The following terminology pertains to the conversion 
of data for I-T beam-plate sections to that of I-T beam 
sections ; 

A a, area of stiffener-plate combination 

kj area of stiffener alone 

c' distance of neutral axis from the flange of 
^ the stiffener alone 

d depth of stiffener 

I^ moment of inertia of stiffener-plate combination 

I^ moment of inertia of the stiffener alone 

t plate thickness 

YP distance of neutral axis from the flange of the 
stiffener-plate combination 

YP distance of neutral axis from the plate of the 
stiffener-plate combination 

X effective width of plating 

Calculations were made from tabulated values for 
which: }\ - 60, t » 1" 
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- A 3 + X"t — 4- (oO 



YF-c, - 






4)= 



c y <=- j C-^] - ( jC y^’- 

(y^ - cj'J = ^(y p-IJ - xj ^ ^ y 1^-3 °) 



^s^yp- i((»oYF~ 3 o) 

Xx=X3+-AjCv f^ -cj'J^+ ^ +xt'"(y^- "s:) 

X3 = X,- A3 ( y;= -cjj*- xt^(yf- 

X, - Ta -A3 (VP iT - 0 yt^*'+ i oyp - IS" 



x.-X^-C^oyp-jo) -4oy P + (LoyP-3o) -f < 0 



The values of I,^ for I-T sections were assumed to be 

jyy 

approximately one half that of the uncut I sections. 

The scantlings are stored in order of increasing cross 
sectional areas. For each scantling, the following order of 
data is used: USN designation, A (area), c’ (dist, of 

9 O 

neutral axis from flange), (moment of inertia about 
neutral axis), I^^^(moment of inertia about axis of 
symmetry), o, o, d (depth). 
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PART B 



PROGRAMMING NOTES 



The following subroutines are employed by the programs 
in this thesis: 



Subroutine 


Mnemonic 

Code 


SHARE 

Designation 


SHARE Distri- 
bution list 


SYN 


Square Root 


SQRT 


MISRTl 


399 


/356 


Sine 


SIN 


UAS/Cl 


013 


/423 


Cosine 


COS 


UAS/Cl 


013 


/424 


Generalized Print 


BLOCK 


UABDCl 


72 


/520 


Write on Tape 


WOT 


UASTHl 


72 


/1376 


Post Mortem 


PMR 


MICMDl 


NON-SHARE 


/121 



The SYN octal number designations refer to frequently 
used subroutines currently listed under PAK at the Compu- 
tation Center at M.I.To (ref. 7a). 

These programs were written in accordance with SHARE 
Assembly procedures and are available in both mnemonic and 
absolute binary form at the Department of Naval Architectxire 
and Marine Engineering at M.I.T. Moreover, these programs 
were written as an Automatic Operator Program (ref. 7b) » 

The administrative instructions at the beginning and end of 
these programs pertain specifically to the above. 

The programs are each broken up into three parts; Data, 
Program and Input. The parts have been set up through 
administrative instructions so that the first two parts may 
be read into the IBM 704 computer in absolute binary form, 
and the Input information may be read in in the more con- 
venient decimal form to be subsequently assembled with the 
other two parts. The print out format is under progrsim 
control. 
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All lists of Information which are tagged to an index 
register in the program are terminated by a set of <=1.0»Sc 
Thus, for each list of data or intermediate information, a 
positive end of the list escape is provided* If an escape 
occurs in the data listings, i.e*, all plate thicknesses or 
all scantlings did not meet the criteria for a station, 
indication of such an escape is recorded for subsequent post 
mortem information. However, most of the loops use this 
means for their termination during the normal course of 
computations . 

A block of registers starting with LOG are used to 
store intermediate and final values resulting from the cal- 
culations. LOG is the station number for scantling or plate 
centerline. LOG^-l and L0G»2 are the z and y coordinates 
respectively for the station. The two stations beyond the 
last pertinent one are given the coordinates of (“l.O, <-1.0). 
The loops which, are repetitive for eact|. or every other 
station are terminated by transferring on a negative coordi= 
nate. Since all other coordinates are positive, this pro- 
cedure provides an effective means for terminating many 
repetitive calculations. 

Indexing instructions (TXI) are written without a 
decrement part. The decrements are placed in these in- 
structions at the beginning of the program. By altering 
only two or three numbers, the whole program can be altered 
with respect to size to conform to changing criteria. Gare 
should be taken to insure that all Instructions within the 
program with LOG as an address conform to this change. 

8 ' 



Negative numbers are used in the decrements . Indexing in~ 
structions are specified by a five character alphabetic 
code; wC stands for all such instructions having 

the same decrement value. (6 provides the identification for 
the particular indexing instruction. Examples; INDAA, INDBS, 
etc. 

Non indexing instructions are specified by a five 
character alphabetic code; INS»<^. »<|<3 identifies the par= 

ticular instruction. For the most part, these instructions 
are in alphabetic sequence starting with INSAA, INSAB, etc. 
Exceptions to this rule have resulted from the many modifi- 
cations which these programs have undergone. The designation 
”«•” refers to ”this address" with respect to instructions. 

These programs operate in the floating trap mode and 
provision has been made for setting the accimmlator to zero 
and returning to the main program when an underflow (AC < 10“'^'^) 
occurs. Of course, am overflow (AC> 10 ) will stop the 

program. Pew escapes have been written for error returns 
from subroutines. It has been felt desirable to stop the 
program wherever such an event occurs. 

The post mortem dxjmp includes the information listed 
under LOG. It is here that nearly all of the intermediate 
information is stored, and searching for errors should 
commence in this area if the input cards have been found to 
be correct. Normally there is no need for the post mortem 
dvimp and the PMD, PMR and XPM cards are removed. 
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PART C 



Input and Output Formats for Selection of Plating and Scantlings 

1. The following conventions apply to the input formats 

a. The order of reading in and assembling input data is 
to be the same as that listed belowo The units to be 
used are indicated on the input listingo 

b. Since floating point instructions are used, all 
numbers comprising the input data must have decimal 
points Inserted. 

c. If the SAP deck is to be assembled for the first 
time, precede the input program with "GST M885-721- 
PROGRAM" and use "INPUT" as the address of the ORG 
card. The octal address of INPUT is used when com- 
bining the INPUT program with the absolute binary decks 
of the DATA and PROGRAM parts. 

Input Format with sample problem inserted: 

REM INPUT INFORMATION FOR PROGRAM M885 



SAP 


M885- 


•721-INPUT 




LST 


OFF 






ORG 


( the 


octal address 


of INPUT) 


DEC 


30.0 


(FT) 


DEPTH 


DEC 


35.0 


(FT) 


BEAM 


DEC 


17.0 


(FT) 


BILGE RADIUS 


DEC 


11.7 


(FT) 


FULL LOAD DRAFT 


DEC 


18.7 


(FT) 


WAVE CREST HEIGHT ABOVE KEEL 


DEC 


84.0 


(IN) 


INITIAL FRAME SPACING 


DEC 


10.0 


(IN) 


INCREMENT OF FRAME SPACING 



lO 



DEC 


84,0 


(IN) 


PINAL FRAME SPACING 


DEC 


52,0 




INITIAL NUMBER OP LONGITUDINALS 


DEC 


10,0 




INCREMENT OP NUMBER OF LONGITUDINALS 


DEC 


52.0 




PINAL NUMBER OP LONGITUDINALS 


DEC 


0.05 




ACCURACY CRITERION FOR MOM, OP INERT 


DEC 


12540.0 


(FT-TONS) 


BENDING MOMENT, SAGGING 


DEC 


28100.0 


(PT-TONS) 


BENDING MOMENT, HOGGING 


DEC 


4.0 


(FT) 


MINIMUM HYDROSTATIC HEAD 


DEC 


60000.0 


(PSI) 


ULTIMATE STRENGTH 


DEC 


33000.0 


(PSI) 


YIELD STRENGTH IN TENSION 


DEC 


33000.0 


(PSI) 


YIELD STRENGTH IN COMPRESSION 


DEC 


30000000, 


0 (PSI) 


YOUNG’S MODULUS 


DEC 


2000.0 


(PSI) 


SECONDARY BENDING STRESS AT PLATE 


END 


0 







2, Printout Format with answers for sample problem inserted? 
Note: The program has been altered since Appendix C was 

typed. Intermediate values of locations of neutral axes 
are printed out concurrently with intermediate values of 
moments of inertia, 

RUN M885-721-PR0GRAM 

REM AMIDSHIP DESIGN PROBLEM 

REM THIS REQUIRES THE SELECTION OP PLATING AND SCANTLINGS 

REM FOR A DESIGNATED HULL SHAPE UNDER THE INFLUENCE 

REM OP PRESCRIBED FORCES AND MOMENTS 

BIN M885-721~DATA-DAVIS«00 

BIN M885-721-PR0GRAM<^00 

BIN M885-721-INPUT4:-00 

PMD M885<-721-PR0GRAM 



11 



CLR 



PAK 

RIP M885 -72 1-DATA -DAVIS 
RIP M885-721-PR0GRAM 
RIP M885-721-INPUT 
BGN M885-721-PR0GRAM 

The foregoing information are the administrative in- 
structions pertaining to the program, Nextp the intermediate 
values of moments of inertia (in'^) and locations of neutral 
sixes (in) were printed out. In this case nineteen tries were 
made before all accuracy criteria were met. 

Several comments are in order concerning the print out 
format. Floating point notation is used in some instances. 

Two examples are the best illustration of floating point 
numbers: 0.503E02 ~ 50.3, 0.607E-01 - 0.0607. The nvimber 

following the letter E is the power of 10 by which the num- 
ber preceding the letter E is to be multiplied. Area is 
given in square inches. A is the web frame spacing in 

inches, and N is the total number of equally spaced longi- 

5 a- 

tudinals. Momenta of Inertia are given in units in.ft. 

Inertia pi refers to the moment of inertia for the ship in 
the sagging condition and similarly inertia min. for the 
hogging condition. Locations are numbered consecutively as 
shown in Figure 3 in Appendix C. Z and y distances are 
measured in inches from the keel along the centerline and 
base line respectively. Scantlings are indicated by their 
USN designation with the exception that ”1” refers to ”I»T" 
sections. Plate thicknesses are indicated in Ibs/square foot. 

IZ 



INERTIA PL« 0.35123213E 05 INERTIA MIN= 0.41415150E 05 
NEUTRAL AXIS SAG= 159.3 NEUTRAL AXIS H0G= 199.1 

AREA= 0.27954086E 03 N« 62.0 A= 84.0 

INERTIA PL= 0.3543546E 05 INERTIA MIN= 0.40221344E 05 



LOCATION® 0.0 Z- 


0,0 Y- 


0.0 


10.0X4.00X 11.51 
LENGTH/RADIUS OP GYRATION® 


30.0 


LOCATION- 1,0 Z= 


0.1 Y= 


13.0 WT= 20.4 


LOCATION* 2.0 Z* 


1.0 Y* 


26.6 


10.0X4.000X 11.51 
LENGTh/rADIUS of GYRATION* 


30.0 


LOCATION* 3,0 Z- 


2.8 Y» 


40.0 WT* 17.8 


LOCATION* 4.0 Z= 


5.5 Y* 


52,8 


10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION* 


30.0 


LOCATION* 5.0 Z» 


8.9 Y- 


66,0 WT® 17.8 


LOCATION® 6.0 Z* 


13.2 Y* 


78.3 


10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION* 


30.0 


LOCATION* 7.0 Z» 


18.4 Y- 


91.0 WT* 17.8 


LOCATION- 8.0 Z» 


24.3 Y» 


102.5 


10.0X2.750X 9.001 
LENGTH/rADIUS op GYRATION* 


29.9 


LOCATION- 9.0 Z= 


31,0 Y* 


114.0 WT* 15. i 


LOCATION* 10.0 Z* 


38.4 Y> 


' 125.1 



10.0X2.750X 9.001 
LENGTH/RADIUS OF GYRATION® 29,9 



LOCATION* 


11.0 


Z« 


46.5 




136.0 


LOCATION* 


12.0 


Z- 


55,3 


Ys 


145.6 



10.0X2.750X 9.001 
LENGTH/RADIUS op gyration® 29.8 
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LOCATIONS 13.0 Z- 64.7 Y= 155.0 WT^ 14.0 

LOCATIONS 14.0 Z= 74.7 Y“ 163.8 



10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION* 29.8 



LOCATIONS 15.0 Z- 


85.3 


Y« 172.0 


WT= 12.7 


LOCATION- 16.0 Z* 


96.4 


Y* 179.3 




10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION* 


29.7 




LOCATIONS 17.0 Z= 


107.9 


Y* 186.0 


WT* 11.5 


LOCATION* 18.0 Z* 


119.8 


Y* 191.8 




10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION* 


29.7 




LOCATION* 19.0 Z» 


132.1 


Y* 197.0 


WT* 10.2 


LOCATION* 20.0 Z- 


144.7 


Y* 201.2 




8.0X2.250X 6.501 
LENGTH/RADIUS OP GYRATION* 


29.6 




LOCATION* 21.0 Z* 


157.6 


Y* 205.0 


WT* 7.6 


LOCATION* 22.0 Z- 


170.7 


Y* 207.3 




8.0X2.250X 6.501 
LENGTH/RADIUS OP GYRATION* 


29,5 




LOCATION* 23.0 Z* 


183,9 


Y* 209.0 


WT* 6.4 


LOCATION* 24.0 Z« 


197.1 


Y* 209.9 




8.0X2.250X 6.501 
LENGTH/RADIUS OP GYRATION* 


29.5 




LOCATIONS 25.0 Z* 


210.5 


Y* 210,0 


WT* 6.4 


LOCATION* 26.0 Z« 


223,8 


Y* 210.0 




8.0X2.250X 6.501 
LENGTH/RADIUS OP GYRATION* 


29.4 




LOCATION- 27.0 Z» 


237.1 


Y* 210.0 


BO 

• 

0^ 


LOCATION* 28.0 Z» 


250.4 


Y« 210.0 





8.0X2.250X 6.501 

LENGTH/RADIUS OP GYRATION^ 29.3 



LOCATIONS 29.0 Z- 


263.7 


Y- 210.0 


WT® 


8.9 


LOCATION- 30.0 Z- 


277.0 


Y“ 210.0 






8.0X2.250X 6.501 
length/RADIUS op gyrations 


29.2 






LOCATIONS 31.0 Z» 


290,4 


Y« 210.0 


WT= 


10.2 


LOCATIONS 32.0 Z» 


303,7 


Y® 210.0 






10.0X2.750X 9.001 
LBNGTH/RADIUS OP GYRATION^ 


29.2 






LOCATION= 33.0 Z« 


317.0 


Y® 210.0 


l/l/'p- 


11.5 


LOCATIONS 34,0 Z« 


330.3 


Y« 210.0 






10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION® 


29.1 






LOCATIONS 35.0 Z« 


343.6 


Y» 210.0 


WT® 


12.7 


LOCATION* 36.0 Z« 


356.9 


Y» 210.0 






10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION® 


29.0 






LOCATIONS 37.0 Z- 


360.0 


Y* 200*0 


WT® 


12,7 


LOCATIONs 38.0 Zs 


360.0 


Y® 186.4 






10.0X2. 750X 9.001 
LENGTH/RADIUS OP GYRATION* 


29.0 






LOCATION* 39.0 Z“ 


360.0 


Y® 173.0 


WT= 


12.7 


LOCATIONS 40.0 Zs 


360.0 


Y* 159.8 






10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION® 


29.0 






LOCATIONS 41.0 Z® 


360.0 


Y® 146.0 


WT= 


12.7 


LOCATIONS 42.0 Z® 


360.0 


Y® 133.2 






10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION® 


29.0 






LOCATION® 43.0 Z® 


360.0 


Ys 120.0 


WT® 


12.7 


LOCATIONS 44.0 Z« 


360,0 


Y® 106.5 






10.0X2.750X 9.001 
LENGT^/RADIUS OP GYRATION® 


29.0 
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locations: 45.0 Z“ 360,0 Y« 93.0 



WT« 12.7 



LOCATIONS 46.0 Z= 360.0 Y“ 79.9 

10.0X2.750X 9.001 
LENGTH/RADIUS OF GYRATIONe 29,0 



LOCATIONS 47.0 Z“ 


360.0 


Ys 


67.0 


WT= 12,7 


LOCATIONS 48.0 Z“ 


360.0 


Y« 


53.3 




10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION* 


29.0 




LOCATIONS 49.0 Z® 


360.0 


Y® 


40.0 


WT= 12.7 


LOCATION- 50.0 Z* 


360.0 


Y® 


26,6 





10.0X2.750X 9.001 
LENGTH/RADIUS OP GYRATION® 29.0 



LOCATION- 


51.0 


ZS 


360.0 


Y® 


13.0 


LOCATION® 


52.0 


Z® 


360.0 


Ys 


0.0 



10.0X2.750X 9,001 
LENGTI^RADIUS op gyrations 29.0 

LOCATIONS 53.0 Zs -1.0 Y= -1.0 

TER M885 -72 1-PROGRAM 



U 



PART D 



Input and Output Formats for Sizing the Transverse Web Frame 

1. The Input Format is the same as that for Part C just 
preceding with the following exceptions; 

a. Initial and final values for each of the following 
must be equal; number of longitudinals and frame 
spacing o Note: some value greater than zero must be 
inserted for increments of numbers of longitudinal and 
increments of frame spacing, 

b. Insert the following information immediately before 
”END 0” in the INPUT program described in Part C; 

ORG (octal address of LOAD) 



DEC 


700, , 


500, , 


200, , 


200., 


0 # p 


o 

O 

o 


0. , 


o 

o 


DEC 


o 

o 

o 


® , 0 , , 


O 

o 

o 


O 0 o ^ 


c 

o 


o 

o 

o 

0 


O 

o 


0., 0. 


DEC 


100., 


100., 


100, , 


100 o ^ 


100 


. , 100., 


100 


, , 100., 



DEC 100, j, 100, 

The LOAD data pertains to the weights (in lbs.) 
applied at the intersections of scantlings and the web 
frame by machinery, etc,, within the ship. The first 
value imder LOAD refers to the weight applied at the 
keel. Successive values refer to weights applied at 
successive even n\ambered stations. It is for this 
reason that the nimiber of equally spaced longitudinals 
must be specified and remain fixed. The preceding format 
permits stacking of data on relatively few cards. Note 
that decimal points must be Inserted. 
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The same convention applies to the ORG cards used in 
part C as well as that of the preceding formato In the 
latter case "LOAD” is the title of the ORG card when "INPUT” 
is so used in the preceding case. The GST instruction of 
part C covers both LOAD and INPUT data in this case. 

The output format indicates the dimensions of the web 
frame. All dimensions are in inches. 

Intermediate values of the redundant force and moment 
are printed out. These values are indicated in the Results 
and Discussion. The format which follows is given in addi- 
tion to the printout format of the previous subsection. 



LOCATION® 


0.0 


z® 


o 

o 

o 


Y= 


o 

o 

o 




TW= 


TPs 


0 


D® 


0 


w= 


0 


LOCATION® 


2.0 


z® 


1.0 


Y= 


26.6 




TW® 


•ppS 


0 


D® 




W® 


o 


LOCATION® 


4.0 


z® 


5.5 


Y= 


52.8 




TW® 


TP® 


o 


D® 


o 


W= 


o 


LOCATION* 


6.0 


Z® 


13.2 


Ys 


78,3 




TW® 


TP® 


0 


D® 


o 


W® 


0 


LOCATION® 


8.0 


z» 


24.3 


Y® 


102.5 




TW® 


TPS 


0 


D® 


0 


w= 


o 


LOCATION® 


10.0 


Zs 


38.4 


Y® 


125.1 




TW® 


•pps 


0 


D® 


o 


W® 


o 


LOCATION® 


12.0 


z® 


55.3 


Ys 


145.6 




TW* 


TP® 


o 


D® 


o 


W® 


o 


LOCATION® 


14.0 


z® 


74.7 


Y® 


163.8 




IB 

o 


•pps 


o 


D= 


o 


W® 


o 


LOCATION® 


16.0 


z® 


96.4 


Y- 


179.3. 
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TWs 


ippai 


0 


D* 


o 


w= 


o 


LOCATION* 


18,0 


z* 


119.8 


Y= 


191.8 




TW- 


■PP* 


0 


D* 


o 


w= 


0 


LOCATION* 


20.0 


Z* 


144.7 


Ys 


201.2 




TW* 


ppa 


o 


D* 


o 


W= 


o 


LOCATION* 


22.0 


Z» 


170.7 


Y» 


207.3 




TW- 


PP m 


0 


D“ 


o 


W» 


e 


LOCATION* 


24«0 


z* 


197.1 


Ys 


209,9 




TWa 


ppe 


0 


D* 


0 


W* 


o 


LOCATION* 


26.0 


z* 


223,8 


Ys 


210.0 




TW* 


PP® 


0 


D* 


o 


w* 


o 


LOCATION* 


28.0 


Z* 


250.4 


Y* 


210.0 




TW* 


TPs 


o 


D* 


o 


w* 


• 


LOCATION* 


30.0 


Z* 


277.0 


Y= 


210.0 




TWS 


TPs 


o 


D* 


0 


w= 


0 


LOCATION* 


32.0 


z* 


303.7 


Y* 


210.0 




TW* 


pps 


o 


D* 


o 


w* 


0 


LOCATION* 


34.0 


Z* 


330.3 


Y* 


210.0 




TW* 


TF* 


o 


D* 


o 


w* 


o 


LOCATION* 


36.0 


Z* 


356.9 


Ys 


210.0 




TW* 


Tps 


o 


D= 


o 


w= 


« 


LOCATION* 


38.0 




360.0 


Y* 


186.4 




TW* 


pps 


0 


D* 


o 


W* 


0 


LOCATION* 


40.0 


Z* 


360.0 


Y» 


159.8 




TW* 


TP* 


0 


D* 


0 


Ws 


o 


LOCATION* 


42.0 


z® 


360.0 


Y* 


133.2 




TW* 


PPg 


o 


D* 


o 


W» 


o 


LOCATION* 


44.0 


z* 


360.0 


Y® 


106,5 
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TW* 


TP* 


• 


D= 


• 


W= 


• 


LOCATION = 


46.0 


Z* 


360.0 


Y= 


79.9 




TW« 


TP* 


• 


D= 


• 


W= 


• 


LOCATION = 


48.0 


z* 


360.0 


Y= 


53.3 




TW= 


TP= 


# 


D= 


• 


W= 


• 


LOCATION* 


50.0 


z* 


360.0 


Y= 


26.6 




TW- 


TP= 


• 


D* 


• 


W» 


• 


LOCATION* 


52.0 


z- 


360.0 


Y= 


0.0 




TW* 


TP* 


• 


D- 


• 


w* 


• 
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III. RESULTS 



The numerical results obtained from the computer solutions 
of the first program are contained in subsection C-2 imder 
Procedure . 

The first program has been run and is known to be correct. 
This program selects longitudinals and plating for a ship’s 
hull. This program has been completely verified by hand 
calculations. The input and output formats are designed for 
convenience and are contained in section C of the Procedure. 

The second program, that of sizing the transverse web 
frame, has been written but it is not working. The part of 
this program up through page 129 is known to be correct. 

The part of this program written on pages 130 through 158 
are believed to be correct, but bear checking. It is felt 
that the difficulty lies somewhere in pages 139 through 152. 

Both programs have the following limitations: 

1. The frame scantlings are evenly spaced and are 

placed symmetrically about the ship centerline. 

2. The points defining the hull section are symmetrical 

about the ship centerline. 

3. One of these points is on the centerline keel. 

4. The hull shape is defined by its beam, depth, and 

bilge radius. 

The web frame program has the following additional 
limitations (aside from the fact that it 1s not working): 

1, Symmetrical loading with respect to the centerline. 

2. No stanchions are used. 



21 













I I 



3, No account is taken of shear strains or shear 



stresses . 

Computer time for calculation of scantlings and plating 
was around 5 minutes. Computer time for calculation of the 
web frame dimensions might be as much as 20 minutes. 
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IV. DISCUSSION OP RESULTS 



The aims of this thesis as originally specified were 
not fully met. As originally planned, the program for 
selecting scantlings and plating was to have been used to 
generate curves indicating optimxim mmibers of longitudinals 
and frame spacings for different hull geometries under 
bending and hydrostatic loads. This aim was not met due to 
a critical shortage of computer time available. Moreover, 
most of the available computer time was utilized in the de- 
bugging phases. However, this program was written to select 
the optimxim (least weight) combination of number of longitu- 
dinals and frame spacing and to print out the data for this 
combination. 

One of the more important points to note is the fact 
that these programs are written for a factor of safety of 
1,0 on the specified yield stress. In both programs, stress 
schedules provide the fvmdamental criterion for selecting 
components of the hull structure. In all cases stresses 
are asstuaed to be uniaxial. The sum of stresses resulting 
from different loadings are never permitted to exceed the 
specified yield stresses. 

The graphs on the opposite page are included to point 
out the area which deserves immediate attention for the 
sake of improving these programs. The use of four related 
values z^, z^, I,^ and 1“ makes this program inherently un- 
stable, Accordingly, moments of inertia are varied by a 
percentage amount (10^) until computed and assumed values 
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agree to within a specified amomt. In this case the accuracy 
criterion was five percent. As is indicated in these graphs, 
the use of computed values of locations of neutral axes as 
the new assumed values led to an unstable solution. This 
difficulty was rectified by using the mean of assumed and 
computed values of locations of neutral axes as the new 
assiamed values. 

The process of making new estimates of moments of 
inertia is still considered to be unsatisfactory since 
too many attempts must be made to arrive at a solution. 

The transverse web frame program did not run to a solu- 
tion, This program was run for 10 minutes dxiring which time 
two values each of redundant moment and redvindant force were 
obtained. It appears as though the difficulty might be asso- 
ciated with the flow diagram for this program rather than to 
any specific instruction. There was insufficient computer 
and calendar time available to pvirsue this matter further. 

Perhaps one of the more important parts of this in- 
vestigation is the use of a logical approach to the amid- 
ships s hull design. The computer is a relatively stupid 
beast and has no capability other than to obey instructions 
at an incredibly fast rate. Neither esthetic values nor the 
successes of previous designs can be used 'unless they are 
somehow incorporated into the specific criteria within the 
program. 

The criteria used in these programs are usually quite 
simple. The main purpose here is to at least provide a 

(Note; there is no Page 25) 
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logical position in the programs for more exact criteria. 

In a sense, these programs are frameworks for future develop- 
ments of this nature. It is emphasized that the simplicity 
of the criteria used was not caused by the computer but rather 
by the calendar time available to the author. 

It is felt that with a suitably sized shoe horn these 
programs can be written for the IBM-650 computer. This com- 
puter has 4000 memory addresses as compared with the 32786 
core locations plus magnetic drums and tapes available for 
the IBM-704 computers. This comparison should provide an 
indication of how much these programs can be expanded if the 
IBM-704 computer or its successors are to be used, 

A considerable portion of time spent on this project 
was devoted to debugging the programs. An appreciation of 
this fact can be gained by noting that every letter, number, 

comma and period must be correct. The programs were written 

in such a manner as to make debugging a relatively easy pro- 
cess. Nevertheless, this was the most frustrating and dis- 
couraging part of this investigation. 

These programs are as well documented as could be done 
within a reasonable number of pages. Again it should be 
pointed out that some of the criteria bears checking and 
refining. It is hoped that users will find this thesis as 

valuable to them in their work as it has been to the author 

in preparing it. 
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V. CONCLUSIONS AND RECOMMENDATIONS 



1« Conclusions : 

The results of experiments regarding structural compo- 
nents can be readily Incorporated into programs such as those 
contained in this thesis o The results must be in some mathe- 
matical form but can be as complex as is desired to reflect 
actual observed conditions , 

Digital computers can be used to solve extremely com- 
plex structm’al problems » Ref. 8 contains an example of such 
a structural problemo Here, a grillage framework for a des- 
troyer type hull is analyzed. This analysis is nearly im- 
possible to carry out by hand within a reasonable amount of 
time. It is felt that an era of extensive hand calculations 
for the analysis and design of complex structures is rapidly 
coming to an end. The high degree of engineering required 
for efficient structures, of the complexity of a ship's 
hull for instance, require the use of high speed computers 
for design and analysis processes. 

In general, the limitations imposed by the computer on 
a problem are less restrictive than those imposed by manual 
methods. Two observations bear this fact out. First, the 
computer can be used to solve complex differential equations 
which may arise from proven theory almost as efficiently as 
it can the normal algebraic expressions often encountered in 
design work. Secondly, computer programs can be expanded to 
encompass a wide range of engineering knowledge to be applied 
in the design processes accomplished by the particular programs. 
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Accordingly, much more efficient use can be made of the 
most precise theories available o It would be remiss not to 
point out the fact that the designer’s time can be much more 
effectively used to evaluate the results of designs calculated 
by the computer rather than doing the calculations manually. 

2 o Recommendations : 

The programs in this thesis should be expanded to in- 
clude the best engineering knowledge and theory available. 

As has been pointed out in the discussion of results, the 
criteria used in these programs are quite basic. There is a 
considerable amoxmt of room for improvement in this field. 

Once the above has been carried out to a reasonable 
extent, investigations should be made to adapt this approach 
to designing a grillage network similar to that of Ref. 8, 

Once this has been done, it is felt that the programs will 
be quite valuable indeed in designing hull structures for 
the destroyer type ships. In addition, these programs could 
be adapted to other types of hulls and an effort should be 
made in that direction. 
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lo Llat of Frequently Used Computer Instructions 

Explanations accompanying the following operation codes 
are not necessarily technically correct. However, they are 
deemed sufficient for readers who have had little or no ex- 
perience in programming for the IBM-704 Data Processing System 



CIA Y 


Clear the accumulator (AC), (Set to 0) and add 
the contents of address Y. 


FAD Y 


Add (floating point) the contents of Y to the 
contents of the accumulator. 


STO Y 


Store the contents of the (AC) in the address Y. 


LDQ Y 


Load the multiplier quotient register (MQ.) with 
the contents of Y, 


STQ Y 


Store the contents of the (MQ) in the address Y, 


LDQ X 
PMP Y 
STO Z 


A series of instructions in which the contents of 
X are multiplied by the contents of Y and the re- 
sult thereof is stored in the address Z. 


CIA X 
PDP Y 
STQ Z 


A series of instructions in which the contents of 
X are divided by the contents of Y and the quo- 
tient thereof is stored in the address Z. 


CAS Y 


Compare the contents of the (AC) with those of 
the address Y; 

If the c(AC) > c(Y), go to the next instruction. 
If the c(AC) a= c(Y), skip one instruction. 

If the c(AC)< c(Y), skip two instructions. 


NOP 


No operation, go to the next instruction. 


HTR 


Error stop 


HLT 


End of program 


REM 


Remark, this operation code has no significance 
other than that of information. 


CHS 


Change the algebraic sign of the contents of (AC). 


SSP 


Set the algebraic sign of the contents of (AC) plus. 


SSM 


Set the algebraic sign of the contents of (AC) minus 


TRA Y 


Absolute transfer of control to the instruction 
having the address Y. 
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TMI Y Transfer to Y if the contents of the (AC) are 

negative o 

TLQ Y Trsuisfer to Y if the contents of the (AC) are 

greater than the contents of the (MQ). 



TSX ,4 Exit for a subroutine, 

LXD NIX,K Used to set the contents of index register(s) 
K to zero. 



TXI Y,K,N Transfer control to Y and increment the contents 
of index register(s) K by the sunount N, In this 
and the previous instruction the value of K 
affects the following registers: 

K :lj2j3y4^5^6j 7» 

Index Registers: 1, 2,1&2, 4p2&3,2&4, 1&2&4, 



The TXI instruction changes the effective 
addresses of all instructions tagged to index 
register K« In these programs, negative numbers 
are used for N, For example: 



L0C,1 = LOC 
L0C,2 LOC *50 
L0C<»>5,1 = L0C»75 



when index register 1 
n It It 2 

It n It T 



0 

-50 

-70 
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2. Index of Notation: 



The following symbols and definitions are those commonly 
used in this thesis. Inconsistencies in their usage are 
explained where they occur. 

A Area 

a 7 Total effective area of ship's hull in the sagging 
condition. 

A7 Total effective area of ship's hull in the hogging 
condition. 

A_j Total area of a beam-plate combination. 

A^ Effective area of a beam-plate combination in compression. 

a Frame spacing. 

ao Initial frame spacing. 

^a Increment of frame spacing, 
a^ Pinal frame spacing. 

B Beam. 

b Longitudinal spacing, 

b^ Initial longitudinal spacing. 

c Location of neutral axis of beam or beam-plate combination. 

c^ Distance of neutral axis from extreme plate fibre of 
total area of beam-plate combination. 

cj“ Distance of neutral axis from extreme plate fibre of 

effective area of beam-plate combination in compression. 
c_^ Distance of neutral axis from extreme flange fibre of 
total area of beam-plate combination. 

Cx~ Distance of neutral axis from extreme flange fibre of 

effective area of beam-plate combination in compression. 

Cj Distance of neutral axis from extreme flange fibre of 
total area of beam alone. 

c-w Vertical load on transverse web frame. 

D Depth of ship's hull, width of web plating. 

d Depth of beam. 

E Young's Modulus, 

P Full load draft. 

H Head of salt water. 

Ho Minimum head of salt water. 
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Hhj Head of salt water due to ship in the hogging condition. 
Head of salt water due to ship inclined to a specified 
angle of heel. 

Moment of inertia. 

Effective moment of inertia of the ship hull in the 
sagging condition. 

Effective moment of inertia of the ship hull in the 
hogging condition. 

Specified accuracy criterion for moment of inertia and 
redxindant forces and moments. 

Effective moment of inertia of the beam-plate combi- 
nation mder lateral load. 

Effective moment of inertia of the beam-plate combi- 
nation under end compressive load. 

Total moment of inertia of the beam-plate combination 
about the y-y axis. (axis of symmetry) 

Effective moment of inertia of the beam-plate combi- 
nation about the y-y axis under end compression load. 
Moment of inertia of the beam alone about its x-x axis. 

Moment of inertia of the beam alone about its axis of 

symmetry. 

k Radius of gyration. 

M Bending moment. 

Me. Redundant bending moment. 

Msx Moment due to external loads. 

M?" Ship (primary) bending moment in the sagging condition. 

M7 Ship (primary) bending moment in the hogging condition. 

Ma_ Secondary bending moment due to lateral load on the 
beam-plate combination. 

n Nvunber of longitudinals. 

n^ Initial number of longitudinals, 

in Increment of number of longitudinals, 

n^ Pinal mamber of longitudinals. 

P Axial force. 

P© Redundant axial force 

P^^ Axial force due to external loads. 

Q First moment of area, shear force. 

R Bilge radius. 

S Shear force. 

t Plate thickness. 

tf Flange thickness, 

t^ Web thickness. 

V Total vertical shear force. 



I 

ir 

ir 

^i 

ir 

Ij 

I, 

3yy 
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W Wave crest height above keel, ship in hogging condition. 

y Coordinate direction perpendicular to centerline plane 

of ship's hull. 

z Coordinate direction in the centerline plane and per- 
pendicular to the base line in the fore and aft direction, 

zf Distance from the base line to the neutral axis of the 

hull in the sagging condition. 

Zg" Distance from the base line to the neutral axis of the 
hull in the hogging condition. 

Stress intensity. 

Axial stress. 

Ultimate strength. 

Yield strength in tension. 

Yield strength in compression. 

Primary stress (tension) due to bending of ship hull, 

<7^“ Primary stress (compression) due to bending of ship hull. 

Secondary stress due to lateral load on beam-plate com- 
bination. 

Tertiary stress due to lateral load on plating. 

X Effective breadth of plating \mder lateral load, 

V" Effective width of plating under end compression. 

& Angle. 

Increment of angle. 
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APPENDIX B 

PLATE AND SCANTLING DATA 
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RUN M885-721-PROGRAM 

REM AMIDSHIP DESIGN PROBLEM 

REM THIS REQUIRES THE SELECTION OF PLATING AND SCANTLINGS 
REM FOR A designated HULL SHAPE UNDER THE INFLUENCE 
REM OF PRESCRIBED FORCES AND MOMENTS. 

SAP M885-721-DATA-DAVIS 
LST NONE 
PRG OFF 
ORG /70000 
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REM PLATE DATA, IN ORDER OF INCREASING THICKNESSES* 

REM WT PER square FOOT* THICKNESS* IN INCHES* THICKNESS 
REM SQUARED IN THAT ORDER 

PLATE DEC S. 10 *0.125, 0.0 15625*6. 37 *0.1 562 *0.02441 A *7. 65 *0.1875 *0.035 156 
DEC 0.92*0.2107,0.047830*10.20*0.2500*0.0625*11.47*0.2812 
DEC 0.079073*12. 75,0.3125*0.097656*14.02*0.3437*0.118130*15.30 
DEC 0.3750,0.140625*17.85,0.4375*0.191406*20.40*0.5000*0.250000 
DEC 22.95 >0.5623 *0.316406 ,25.50,0.6250*0.39062 5*28.05*0.6875 
DEC 0.472656,30.60,0.7500,0.562500*35.70*0.8750*0.765625,40.80 
DEC 1.0000*1.000000*45.90,1.1250,1.265625*51.00*1.2500*1.562500 
DEC 61.20*1.5000*2.250000 
DEC -1 .0 *-l .0 *“1 .0 

REM SCANTLING DATA* U S N BEAM DESIGNATION* I 

REM REFERS TO I-T SECTIONS* DEC DATA* AREA* DIST OF 

REM NEUTRAL AXIS TO FLANGE* TWO MOMENTS OF INERTIA* 

REM TWO BLANKS* DEPTH* IN THAT ORDER 

SCANT BCD 3 3.0X1.075X 2.20T 

DEC 0.65 ,0.04 ,0.58 *0.002,0. *0. *3.00 
BCD 3 4.0X2.250X 3.25T 

DEC 0.96,1.10,1.59,0.17,0.*0.*4.00 
BCD 3 6.0X1.875X 4.401 

DEC 0. 99, 2. 19, 4. 71*0. 09, 0.*0., 6. 00 
BCD 3 3.0X4.000X 4.25T 

DEC 1.25,0.64,0.90,0.94,0. ,0.* 2. 92 
BCD 3 7.0X2.125X 5.501 

DEC 1.25 ,2.60*7.70*0.13*0. *0* *7.00 
BCD 3 5.0X2.750X 4.50T 

DEC 1.32*1.53*3.46*0.30*0. *0. *5.00 
BCD 3 4.0X4.000X 5.00T 

DEC 1.48,0.96*2.15*1.00*0. *0»*3.95 
BCD 3 8.0X2.250X 6.501 

DEC 1.53 ,2.87 ,9.00,0.17 ,0. ,0. ,8.00 
BCD 3 5.0X4.000X 5.75T 

DEC 1.69 ,1.35,4.15,1.00,0. *0. *4.94 
BCD 3 6.0X3.000X 5.90T 

DEC 1.72,1.68,6.59,0.49,0.*0.,6.00 
BCD 3 3.0X4.000X 6.00T 

DEC 1.77 ,0*67 ,1.30, 1.44,0. *0. *3.00 
BCD 3 6.0X4.000X 8.501 

DEC 1.77,1.78,7.12,0.95,0.,0.,5.83 
BCD 3 4.0X4.000X 6.50T 

DEC 1.91,1.03,2.90,1.31,0.,0.,4.00 
BCD 3 6.0X4.000X 7.00T 

DEC 2. 07, 1. 76, 7. 70,1. 13*0. ,0. *5. 96 
BCD 3 10.0X2.750X 9.001 
DEC 2.17 ,3.91 *24.48*0.31,0. ,0. ,10.00 
BCD 3 8.0X4.000X10.001 

DEC 2.19,2.72,18.19,1.00,0. ,0. *7.90 
BCD 3 5.0X4.000X 7.50T 

DEC 2»20,1.37,5.46,1.39,0.*0.*5.00 
BCD 3 4.0X4.000X 7.50T 

DEC 2. 22, 1. 00, 3. 29,1. 65. 0.,0. *4. 06 
BCD 3 3.0X4.000X 8.00T 

DEC 2.36,0.67,1,66,2.16,0.,0.,3.13 
BCD 3 6.0X4.000X 8.25T 

DEC 2. 43, 1.76, 9. 02,1. 39, 0.,0. 



6.00 



BCD 


3 


5 


0X4.000X 8. 507 






DEC 


2.49 


1.32»6.07,1.73»0. 


,0. 


,5.06 


BCD 


3 


6 


0X4. 000X12. OOT 






DEC 


2.49 


1.97,13.49,1.45,0 


,0 


. , 6 . 00 


BCD 


3 


4 


0X4.000X 8.50T 






DEC 


2.50 


0»84>3*21 f3#36f0# 


0. 


,4.00 


BCD 


3 10 


0X4.000X 11.51 






DEC 


2.63 


3.45,26.12,1.0l,,0 


,0 


.",9^87 


BCD 


3 12 


0X3.000X 11.81 






DEC 


2.75 


4.52,42.53 ,0.49,0 


,0 


. >12.00 


BCD 


3 


5 


0X4.000X 9.5T 






DEC 


2.80 


1.28,6.70,2.09,0. 


0. 


,5.13 


BCD 


3. 


6 


0X4.000X 9.5T 






DEC 


2.81 


1.67,10.2,1.84,0. 


o7 


TT.os" 


BCD 


3 


8 


OX4.OO0X 13.01 






DEC 


2.88 


2.82,23.62,1.31,0 


,0 


. >8.0b 


BCD 


3 


4 


0X5.250X 10. OT 






DEC 


2.94 


0.83,3.66,4.25,0. 


0. 


,4.07 


BCD 


3 


5 


0X5.750X 10. 5T 






DEC 


3.10 


1.06,6.31,4.87,0. 




74795 


BCD 


3 


6 


0X4.000X 11. OT 






DEC 


3.24 


1.63,11.7,2.27,0. 




,6.16 


BCD 


3 


6 


0X4.000X 16.01 






DEC 


3.26 


1.89,16.02,2.16,0 


,0 


. ,6.25 


BCD 


3 


8 


0X4.000X 15.01 






DEC 


3.27 


2.62,22.00,1.65,0 


,0 


. ,8;i2 


BCD 


3 12 


OX4.000X 14.01 






DEC 


3.30 


4.54,56.83,1.13,0 


,0 


. ,11.91 


BCD 


3 10 


0X4.000X 15.01 






DEC 


3.40 


3.60»39.55,1.40,0 


,0 


. ,10.00 


BCD 


3 


8 


0X5.250X 17.01 


9 




DEC 


3.48 


2.30,23.27,3.4,0. 


ov 


,8;oo 


BCD 


3 


5 


OX5.750X 12. 5T 






DEC 


3.67 


1.02,7.12,6.34,0. 




,5.04 


BCD 


3 10 


0X4.000X 17.01 






DEC 


3.77 


3.52,45.07 ,1.73,0 


,0 


. ,10.12 


BCD 


3 12 


OX4.OO0X 16.51 






DEC 


3.86 


4.56,66.59,1.40,0 


TO' 


7','i2;oo 


BCD 


3 


6 


0X6.500X 13. 5T 






DEC 


3.98 


1.21,11.4,8.30,0. 




,5.98 


BCD 


3 


8 


0X5.250X 20.01 






DEC 


4.03 


2.28,28.14,4.30,0 


,0 


;V8.14 


BCD 


3 10 


0X4.000X 19.01 






DEC 


4.18 


3.37 ,45*92, 2. l0»b 


VO 


;T10.25" 


BCD 


3 


5 


0X5.750X 14. 5T 






DEC 


4.27 


1.05,8.38,7.61,0. 




,5.11 


BCD 


3 12 


0X4.000X 19.01 






DEC 


4.34 


4.36,70.84,1.85,0 


,0 


. ,12.16 


BCD 


3 10 


0X5.750X 21.01 






DEC ■ 


'4.35 


2.86,42.33,4.90,0' 




;T9T90' 


BCD 


3 


7 


0X6.750X 15. OT 






DEC 


4.41 


1*59,19*0»8*77,0* 




,6.93 


BCD 


3 


6 


0X6.500X 15. 5T 






DEC 


4.56 


1.22, 13. 0»9. 90,0. 


o.~ 


,6.04 


BCD 


3 


8 


0X6.500X 24.01 






DEC 


4.63 


2.00»30.86,9.l0»0 




.77793 



^-0 



BCD 3 12.OX4.OOOX 22.01 

DEC 4.94,4.26»81.o 9,2.28 O'"."; O'iT 1 2 73 1 

BCD 3 7.0X6.750X 17. OT 

DEC 5. 00.1. 55, 21.1 ,10.6,0. »0. »7. 00 

BCD 3 10.0X5.750X 25.01 

DEC 5.06,2.87,56.75,6.4,0. ,0. , 10.08 

BCD 3 6.0X6.500X 18. OT 

5.29 ,1.26,15.3,11.9,0. ,0. ,6.12 
BCD 3 8.0XV.000X 18. OT 

DEC 5.40,1.90,30.7,11.1,0. ,0. ,7.93 
BCD 3 8.0X6.500X 28.01 

^*^2, 2.04,34*90,10. 8, 0.,0., 8. 06 
BCD 3 12.0X6.500X 27.01 
DEC 5.53 ,3.44,84.58 ,8.3,0. , ‘07,1179? 
BCD 3 7.0X6.750X 19. OT 

DEC 5.59,1.56,23.50,12.3^0. ,07, ‘7. 06 
BCD 3 8.0X7. OOOX 20.0T 

DEC 5. 88, 1. 82, 33. 20, 13. 3, 0i,0., 8. 00 
BCD 3 10.0X5.750X 29.01 
DEC 5.88,2.88,63.17,7.6 ,‘oT,~07,'l0 72 2 
BCD 3 12.0X6. 500X 31.01 
DEC 6.30,3.43,99.63,9.9,0. ,0. ,12.09 
BCD 3 14.0X6.750X 30.01 
DEC 6. 38 , 4. 3 7, 13 7. 99, 8. 8, 0.,0. ,13.86 
BCD3 10. 0X8. OOOX 33.01 
DEC 6.45,2.51,63.90,18 . 3To77 07797 TT 
BCD 3 8. 0X7. OOOX 22. 5T 

DEC 6.62,1,87,37.8,15.2,0.,0.,8,06 
BCD 3 14.0X6.750X 34.01 

*^EC 7. 15, 4. 26, 151. 08, 10. 7, 0.,0., 14. 00 

BCD_3 12.0X6.500X 36.01 

DEC 7.34,3.57,125.17 ,11.9,o7~,0. ,12T"24 

BCD 3 .8. 0X7. OOOX 25. OT 

DEC 7.35,1.89,42.2,17.4,0.,0.,8»13 

BCD 3 9.0X7.500X 25. OT 

DEC 7*35,2*14,53*9 ,18*6,0. ,0. ,9.00 

BCD 3 10. 0X8. OOOX 39.01 

DEC 7.54,2.47 >72.29,22.5,0.,0. »9.94 

BCD 3 16. 0X7. OOOX 36.01 

DEC 7. 78, 5. 10, 213. 49, 11.1, 6. ,0i^l5. 85 

BCD 3 12. 0X8. OOOX 40.01 



DEC 7.91 ,3.17 ,121*08,22.1 ,0. »0. #11.94 

_BCD 3 14.0X6.7'50X_38.0I 

DEC 7.96 ,4.29 ,'172.97 , 12.3~io. To. , 1 4Tl 2 ~ 

BCD 3 9.0X7.500X 27. 5T 

DEC B.09,2.16,'69.6,21.0,0.,0.,9.06 

BCD 3 16. 0X7. OOOX 40.01 

DEC 8.50,5.U6,i250.63,13.3,0.,0. ,16. *00 

BCD 3_ , 8.0X8. 5'OOX 29. OT 



DEC 8.52,1.70»49.6,3d’.2,0. ,0. ,7.97' ‘ 

BCD 3 10. 0X0. OOOX 45.01 

DEC 8. 66, 2. 53, 88. 43, 26. 6, 0.,0. #10. 12 

BCD 3 14*0X8. OOOX 43.01 

DEC 0*70,3*84,178*37 ,22*6,0* ,0* ,13*68 

BCD 3 . 9,0X7 .500X_30.0T 

DEC 8,82,2,17,64,8>23.5,0,,0.#9.i2 



BCD 3 12.0X8.000X 45.01 

DEC 8.94,3.3 1» 146. 87 »25. 0 »0. »0. f 12.06 

BCD 3 10.5X8.250X 31. OT 

DEC 9*12,2.59,93.7,26.6,0. *0. »io. 49 

BCD 3 8.0X8.500X 32. OT . _ 

DEC 9.40,1.73,48.3,34.2,0. »0* » 8.00 

BCD 3 9.0X8. 750X 32. OT 

DEC 9.40,1.93,61.8,35.2,0. *0. ♦ 8. 94 

BCD 3 16.0X7.000X 45.01 

DEC 9. 59, 5. 08, 274. 69, 15. 3,0., 0.* 16. 12 

BCD 3 14.0X8.000X 48.01 

DEC 9.70,3.88,202.08,25.7,0. *0. *13.81 

BCD 3 12.0X8.000X 50.01 

DEC 9.94,3.32,159.32,23.2*0. *_0.*12.19_ 

BCD 3 10.5X8.250X 34. OT 

DEC 10.01*2.59*102.8*30.2*0. *0. *10.57 

BCD 3 12.0X10.00X 53.01 * _ 

DEC 10.16*2.96,151.29*48.i*0.*0.*12.06 

BCD 3 9.0X8.750X 35. OT 

DEC "10. 28 *1.96 *68*1, 39; 2V0. ,0. *9.00 

BCD 3 8.0Xb.500X 35. 5T 

DEC 10.43, 1.77, 54.0, 38.9, 0.*0i *8.08 

BCD 3 16.0X7.000X 50. Ol 

DEC I0.65*5.13*310.26*17.4*_q. *0. *16.25 

BCD 3 14.0X6.000X 53.01 

DEC" 10 . 7 2 * 3 . 95 * 229 . 16 *28'. 8'* 0. * 0*. *1'3 • 9^ 

BCD 3 10.5X8.250X 36. 5T 

DEC 10.73*2.60*110.2*33.1*0. *0. *10.62 

BCD 3 18.0X7.500X 50.0l 

DEC 10.76*5.81*392.61*18.6*0. *0."* 18.00 

BCD_3 12.0X10.00X 58.01 , _ 

DEC ii.05,2.97*176.50*53V7T0. *6. *'12;T9 
BCD 3 12.0X9.000X 38. OT ' 

DEC 11.18*3.00*151.1*38.3;q._r6*_*n.95" 

BCD 3 9.0X8.750X 38. 5T 

DEC il.32*1.99;75V3';44.3*0.*0. *9.08 

BCD 3 ■ 8.0X8.500X '39.0'f 

D E C 11.46*1 ■.■8 1 ■* 60 • 0 72*3.8*0. *0. *8.l6 

BCD "3“ 18 . 6X7 . 500X '55 .67 

D E C 11 . 8 4 * 57 8 2 * 4 28 . 1^ * 2 1.0 * 0 . *0.* I'B'n Z 

BCD 3 14. 0X16. 00X61.01 

DEC 11792 *'37 6672427“9(5T5^3T77677077T3T9^r 

BCD 3' 16.0X8.560X '58.61 

DEC"r2 .66 *4'. 72 *32^ . 74730 . 37 6777^ .7X5 *B67 

BCD 3 10.5X9.000X 41.0T ^ ' 

DEC I2.65*2.48,115.4*44"i870. *0* 7X0.43“ 
BCD'3 12.0X9.06OX 42.0T 
DEC "12 . 3 572 .97716 5 ". 9 * 44 . 2 * O'. *0 .T1 2T04“ 
BCD 3 9.0X8.750X 42.5T 

DE'C~ 1 274 9 72 76 5 7 84747497776 ."* 6 . i 9 . 1'6 

BCD 3 18.0X7.500X 60.01 
DEC 12. 87 *5. 89*486. 69 *23 7670 7707 *18. 25 
BCD 3 16.0X8.500X 64.01 
DEC 13.23*4.77 *386.35*34.2*0. *0. *16.00 
BCD 3 18.0X8.750X 64.01 
■DEC" T372975 . 35746'5V4--67X57276770 . * 1 7 '.87 



BCD 3 14.0X10.00X 68.01 

DEC 1 3. 3 1.3. 75 .270. 34 » 60. 6 » 0. »0.. 14. 06 

BCD 3 21.0X8.250X 62.01 

DEC 13.54,6.98,677.75,26.6»0.»0. .20.99 

BCD 3 12.0X9.000X 47. OT 

DEC 13. 81. 2. 99 .185. 9. 5 1.1.0. .0. .12.15 

BCD 3 13.5X10.00X 47. OT 

DEC 13.83.3.41.238.5.57.5.0. .0.V13.45 

BCD 3 9.0X11.75X 48. OT 

DEC 14. 11. 1.78. 85. 3.103. 4. 0..0.. 9.08 

BCD 3 10.5X9.000X 48. OT 

DEC 14. 11. 2. 55. 137. 1.54. 7. 0..0.. 10. 57 

BCD 3 14.0X10.00X 74.01 _ 

DEC 14.49 .3.73 .307. 14.66 i'8.0. .O. .i'4.r9‘ 

BCD 3 18.0X8.750X 70. Ol 

DEC 14. 55. 5. 43. 519. 91. 39. 3.0. .0.. 18. 00 

BCD 3 16.0X8.500X 71.01 

DEC 14.70.4.87.423.58.39,0.0. .0. .16.16 

BCD 3 12.0X12.00X 50.0T 

DEC14.71.2.54.176.7.101.8. 0 VVO . '.’1 2V0 0 

BCD 3 21.0X8.250X 68.01 

DEC 14.82.6,98.746.75.30.2.0. .0. .21.13 

BCD 3 14.0X12.00X 78.01 

DEC 14,84.3.36.286.32.l03.5j»0.j0. .14.06 

BCD 3 13.5X10.00X 51. OT 

DEC 1 5 . 0 1 . 3 . 3 9 . 2 5 7 .7 . 6 4 . '8 . 0 . ♦ 0 7TT 3 .“5 J 

BCD 3 9.0X11.75X 52. 2T 

DEC 15. 43. 1.82. 93. 9, 115. 5.0. .0. .9.16 

BCD 3 21.0X8.250X 73.01 

DEC 15.87.7.02.809,99.33.1.0'. .0, .21.24 

BCD 3 15.0X10.50X 54. OT 

DEC 15.88.4,03.349.5.67.‘6.0. .0.”»14;91 

BCD 3 14.0Xl2.00X 84.01 

DEC 15.96.3.40.315.49.112.8.0. »0. .14.18 

BCD 3 18.0X8.750X 77.01 

DEC 16. 02. 5. 52.590. 62. 44. f.©". .0. .18.16 

BCD 3 16.0X6.500X 78.0l_ 

DEC 16. 17.4,95,476.16.43.8.0. .0. .16. 3'2 

BCD 3 12.0X12.00X 55. OT 

DEC 16.18.2,57.195,2.114.5.0. fO. .i2. 08 

BCD 3 10.5X13.00X 56. OT 

DEC 16.47,2,06.136.4,144.8.0. .0, .10.50 

BCD 3 24.0X9.000X 76.01 

DEC 16, 7 1,8. 03. 107 1,87. 38. 2". o'. . 0 .. 23. 9i 

BCD 3 9.0X11.75X 57. OT 

DEC 16. 77, 1. 85. 102. 6. 127. 8, 0..0,. 9. 24 

BCD 3 13.5X10.00X 57. OT 

DEC 16,77.3.42,288.9.74.8,0. .0. .13.64 

BCD 3 15.0Xl0.50X 58. OT 

DEC 17,07,3.94.371.8.76.6.0..0. .is.OO 

BCD 3 16.0X11.50X 88.01 

DEC 17.36,4.32.476.12,92.6.0. .0. .16.16 

BCD 3 21.0X9.000X 82.01 

DEC 17. 61, 6. 73. 857. 38. 44. 8. 0..0., 20. 86 

BCD 3 12.0X12.00X 60. OT 

DEC 17. 64, 2. 62. 213. 6, 127, d,0..0., 12. 16 



BCD 3 10.OX8.75OX 85. OL 

DEC 17. 75, 5. 64 ,667 .79, 49. 7, 0.»0. ,18.32 

BCD 3 15.0X10.50X 62. OT. 

DEC 18. 22, 3. 90, 394. 0,84. 8, 0.,0. ,15.00 

BCD 3 24.0X9. OOOX 84.01 .. 

DEC 18.35,8.0l,1205.39»44.2,0f »0.»24.09 

BCD 3 10.5X13.00X 63.5.1 

DEC 18. 67,2 .11, 155. 8, 169. 3, 0.,0. , 10.62, 

BCD 3 16.0X11.50X 96.01 

DEC 18.89,4.33,518.23,103.6^0. ,0. »_16. 32 

BCD 3 12.0X14.00X 65. OT 

DEC 19.11,2.47,222.6,187.6.6.»0. ,12.n 

BCD 3 16.5X11.50X 65. OT 

DEC 19. 13, 4. 37, 513. 0,100 . 7, O.fO., 16. 55 
BCD 3 18.0X11.75X 96.01 

DEC 19.15,4.98,672.75,l03^t0* 

BCD 3_15.OX10.50X_66.0_T 

DEC i9. 41, 3. 90, 420. 7, 92. 5 ,0. ,0. ,15. 1 ~5 

BCD 3 24.0X9.000X_94.0L 

PEC 26.49,0.05,1358.19, 51 . 1 ,0. ,0. >24.2 9 

BCD 3 21. 0X9. OOOX 96.01 

DEC 20. 63, 6. 87, 1036. 48,5^7,0.1^0. >2 1.14 

BCD 3 24.0X12.00X100.01 __ 

DEC 20. 73, 7. 13, 1323. 64, 101. 8 , 0. ,0. ,24.00 

BCD 3 27.0X10.00X 94.01 

DEC 20 . 7 5 , 9 . 1 1 > 1 69 9 , 1 3 , 57 , 6 , 0 . > dTr26 . 9T 

BCD 3 16.5X11.50X 70i5T 

DEC 20. 76, 4. 30, 551". 8 ,114 .J? , 0 . > 0_i , 1 6 ^6 ' 

BCD 3 10.5X13.00X 71. OT _ ^ ” 

DEC 20.88,2.18,177.3,193.0,0. ,0. >10.73" 

BCD 3 18.0X11.75X105.01 

DEC 20 . 95 , 5 . 03 , 741 . 09 i: 1 1 5 . 5 , 0 . , 0 ■. >T8 .32' 

BCD 3 12.0X14.00X 72. 5T __ 

DEC 21.31,2.48,246.2>2l7"a>0j^,0.,12_.24 

BCD 3 13.5X14.00X 72. 5T 

DEC 21.34,2.85,316.3,203.5,^., ^. , 13 

BCD 3 18.0X12.00X 75. OT 

DEC 22 . 0 8 , 4 . 79 , 6 96 . 7 , 1 2 5 . 2 > 0 .j^0_. , 17". 9T 

BCD 3 16.5X11.50X 76.0T 

DEC 22.35,4.26,591.9,128.1^0. >_0.", 16. 75" 

BCD 3 27. 0X10.00X102. 01 

DEC 2 2 . 4 1 , 9 . 1 0 , 1 864 . 14V64 . 8^, 0 . , 0 . ,"27.0 7 
BCD 3 21.0X13.00X112.01 

DEC 22.43,5.77,1091.41 ,144.9,0". ,0. ,~21.00 
BCD 3 18.0X11.75X114.01 

DEC 22.77,5.13,831.81,127.8j^0_.,0._, 18.48 
BCD 3 24. 0X12. 00X110. OJ' ' _ 

DEC 22.80,7.19,1470.20,'1T4'.6,0". ,0. ,24‘.16 
BCD 3 12.0X14.00X 80. OT 
DEC 23i54, 2. 51 ,271.6,246.3,0. ,0J71'2_.36 ' 
BCD 3 18.0X12.00X 80. OT ^ 

DEC 23 . 54 , 4 . 76 , 74 1 .0 , 1 3 7_. 7j^0. » 1 8 . 00 

BCD 3 13.5X14.00X 80. OT ' 

DEC 23.72,2.91 ,35 1.4,229;'0,0. ,0.", 13. 54 
BCD 3 30. 0X10. 50X108. 01 

DEC 24. 38, 10. 5 2, 243 7. 71, '67. 6 70. ,0. ,29.82 



BCD 3 24.0X12.00X120.01 

DEC 24.91 ,7.28 » 1626.96 1 12 7.0 »0. fO. ,24.31 
BCD 3 18.0X12.00X 85. OT 
DEC 24.99,4.74,784.70,150.3,0. ,0.,18.08 
BCD 3 27.0X10.00X114.01 

DEC 25.01,9.15,2096.78,74.8,0. ,0. ,27.28 
BCD 3 15.0X13.00X 86. OT 

DEC 25.32,3.23,471.0,275.1,0. ,0. ,14.94 
BCD 3 21.0X15.00X127.01 

DEC 25. 45, 5. 89, 1228. 71, 169. 3, 0.,0., 21. 24 
BCD 3 30. 0X10. 50X116. 01 

DEC 25.93,10.39,2625.62,76.6,0. ,0. ,30.00 
BCD 3 13.5X14.00X 88. 5T 
DEC 26. 05, 2. 97, 391. 8, 259. 4, 0.,0., 13. 66 
BCD 3 24.0X14.00X130.01 

DEC 26. 42, 6. 91, 1685. 85, 387. 6, 0.,0., 24. 25 
BCD 3 18.0X12.00X 91. OT 
DEC 26.77,4.77,844.0,163.9,0. ,0. ,18.16 
BCD 3 30.0X10. 50X124.01 

DEC 27. 53, 10. 34, 2 820. 95, 84. 9, 0.,0., 30. 16 
BCD 3 15.0X15.00X 95. OT 
DEC 27.95,3.26,520.4,312.3,0. ,0. ,15.06 
BCD 3 21.0X13.00X142.01 

DEC 28.58,6.03,1403.74,193.0,0. ,0. ,21.46 
BCD 3 33.0X11.50X130.01 

DEC 29. 15, 11. 52, 35 98. 42, 100. 7, 6., 0., 33. 10 
BCD 3 30. 0X10. 50X132. 01 

DEC 29.28,10.37,3033.51,92.5,0. ,0. ,30.30 
BCD 3 24.0X14.00X145.01 

DEC 29. 34, 6. 92, 1899. 01, 217. 2, 0.,0. ,24.29 

BCD 3 16. 5X15. 75X100. OT 

DEC 29.40,3.67,683.6,345;8,0. ,0. ,i6.'50' 

BCD 3 27.0X14.00X145. 01 

DEC 30 .01, 7. 97, 2390. 22, 203. 5,0. ,0. ,26.8 8 

BCD 3 15. 0X15. 00X105. OT 

DEC 30.89,3.31,578.0,354.0,0. ,0. ,15.19 

BCD 3 33.0X11.50X141.01 _ 

DEC 3 1. 36, 11. 28, 38 8 1. 91, ‘i 14.9,0.“, 57, 33'. 31 
BCD 3 24.0X14.00X160.01 „ ^ 

DEC 32. 33, 7. 00, 2 13 8. 32, 246. 3, 0.,0. ,24.72 
BCD 3 16. 5X15. 75X110. OT 
DEC 32. 36, 3. 71, 754. 1, 391. 2, 0.,0., 16. 63 
BCD 3 27. 0X14. 00X160.01 __ 

DEC 33. 12, 8.07,267 1.83,229‘.0,0. ,0. ‘,27.08 
BCD 3 33.0X11.50X152.01 

DEC 33.62,11.39,4258.86,128.1,0. ,0. ,33.50 
BCD 3 36.0X12.00X150.01 

DEC 33. 79, 12. 55, 4870. 24, 125. 2, 0.,0. ,35.84 

BCD 3 18. 0X16. 50X115. OT 

DEC 33. 86, 4. 02, 935. 8, 435. _5_*0. ,0. ,17.94 
BCD 3 16. 5X15. 75X120. OT _ 

DEC 35. 26, 3. 73, 822. 5, 437. 2,0., 6. ,16.75 

BCD 3 30.0X15.00X172.01 

DEC 35.83,8.98,3541.84,275.0,0. ,0. ,29.88 

BCD_ 3. 36.0X12.00X160. 01 

DEC 35. 89, 12. 53, 5230. 68, 137. 7, 0.,0., 36. 00 



BCD 3 18.0X16.50X122i5T_ 

DEC 36,01 »4»0^»994,3»472.3»0. *0. »18.03 

BCD 3 27,0X14,00X177,01 

DEC 36,75,8,19*30l3,34»259,5»0*t0f »27,31 

BCD 3 36,0X12.00X170,01 

DEC 37,96*12,53»5«>07,60fl50*3»0,»0,*36,16 

BCD 3 18,0X16.50X130*0T 

DEC 38.20»4.O7»lO59,2*51O.3,or#O^ »18‘, 12 '"' 

BCD 3 30.0X15.00X190.01 

DEC 39. 48, 9. 05 ,3967. 07 *3 12. 3 »0.»0. ,30.12 

BCD 3 36.0X12.00X182.01 

DEC 40. 69, 12, 62, 6 07 1,86,163.9,0.^0. *36.32 

BCD..3_ 18. 0X16. 50X140. OT _ 

PEC 41.16,4.07,1133.3,563'.7,0.7o', *18i2"5 
BCD 3 33.0X15.75X200.01 _ _ 

DEC 42.21,l0.25,5197.69,345.976,;o7»33;6o 
BCD 3 36.0X12.00X194.01 
DEC 43. 43, 12. 69, 652 1.07, 177. 7,0. id. *36.48 
BCD 3 30.0X15.00X21p.0L_ 

DEC 43,65 ,9, 15 ,4448.557754,0 ,0.’,0, ^30738 

BCD 3 18, 0X16. 50X150. OT 

DEC 44.09,4, 13,1222,7,612.6,6, ,0. *18.36 

BCD 3 33,0X15.75X220.01 

DEC 46. 20*10. 20, 566 8. 24, 391. 2 ',0, *0. *33. 25 

BCD 3 36,0X16.50X230.01 

DEC 48. 56*11. 10*6967. 84* 4'3 57 5Td7767'; 3 5“. 8 8 

BCD 3 33.0X15.75X240.01 

DEC 50.27*10.29,6274.16,437.2*0. ,0, *33,50 

BCD 3 36,0X16.50X245.01 

DEC 51, 56*li, 14, 7479, 32 *472, 4*0, *0, *36, 06 

BCD 3 36.0X16.50X260.01 

DEC 5 4 , 7 9 , 1 1 , 2 0 , 8 0 1 5 , 0 6 ,‘5 1 0 . '3 id ;7 0 , i 3 6 .24 

BCD 3 36,0X16.50X280.01 

DEC 58, 73*11, 24, 8741, 46, 563, 8, 0.,0, *36.50 

BCD 3 36,0X16.50X300.01 

DEC 63.01*11,37*9493.02*612,6*0, *0. *36.72 

BCD.,3 THERE IS NO BEAM 

DEC ”*i.o,"“i.o*—i.o,”i.d*“I.o*— I.o* 

END 0 - ■ 
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APPENDIX C 

PROGRAM FOR SELECTING SCANTLINGS AND PLATING 
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SAP M885 -721 -PROGRAM 



LST OFF 

■PFG* OFF 
CoMii^oKi sy|\| /a.iJ' 
I<^ICMP.U JVN /'/I/ 

SQRT SYN /356 

I'M ■■ 

COS SYN /423 
SIN SYN /424 
BLOCK SYN /520 
WOT SYN /1376 
ORG /10570 
START CLA HANDL 
COM 

STD INDAA 
STD INDAB 
STD INDAC 
STD INDAD 
STD INDAE 
STD INDAF 
STD INDAG 
STD INDAH 
STD INDAI 
STD INDAJ 
CLA HANDL«»1 
COM 

STD INDBA 
STD INDBB 
STD INDBC 
STD INDBD 



o, 



o, 0, - /C 



o, 0 3/ 



O, O, -3 2_ 






STD INDBE 



STD IN DBF 



STD IN DBG 
STD INDBH 
STD INDBI 
STD INDBJ 
STD INDBK 
STD INDBL 
STD INDBM 
STD INDBN 
STD INDBO 
STD INDBP 
STD INDBQ 
STD INDBR 
STD INDBS 
STD INDBT 
STD INDBU 
STD INDBV 
STD INDBW 
CIA HANDL<?2 
COM 

STD INDCA 
CIA HANDL«»3 
COM 

STD INDDA 
STD INDDB 
STD INDDC 






Oj 0,-B 



REM CONVERSION OP UNITS 



LDQ INPUT 
PMP C0NST«-5 
STO INPUT 
LDQ INPUT^l 
FMP CONSTrS 
STO INPUTrl 
LDQ INPUT*-2 
PMP CONSTt-5 
STO INPUTi-2 
LDQ INPUT4-3 
PMP C0NST4-5 
STO INPUTi-3 
LDQ INPUTr4 
PMP CONSTRS 
STO INPUTr4 
LDQ INPUTi-12 
PMP CONSTt-5 
STO INPUTi-12 
LDQ INPUTi-13 
PMP C0NST«-5 
STO INPUT^13 
LDQ INPUTrl4 
PMP C0NSTr5 
STO INPUT»14 
LDQ INPUT ♦12 
PMP CONST+29 
STO INPUT+12 
LDQ INPUT+13 

f=/WP COAlS7--h 2S1 

STO IN'PoT^,^ 



V (-fr) 

12. 

V C ' ►') 

13 ffr) 

12. 

B (\^) 

"R 

II 

|\' Cl*T.j 
FCfrj 
IX 

F (i'^) 

\jJ (f^J 

II. 

W ( I'nJ 

(■fT--rouz) 

I 2. 

/‘IF ("'-To-nSy/ 

/W,~ (-fr-Tot^s) 

I 2. 

Hf (.■fr-Tor^s} 

Ho 

I a 

Ho C''i) 

W\^ (t\-T(5^^3 

Q.S'-I o 

+ ( Iirt — .kiO S,3 

^vj - (irl-TaO^ 
2.2.WO 

|vi ( i' >1 - I b 



FIGURE 2 



Parameters V/hlch Describe the Hull Shape 




HAi-F ScAh^TLiK)(^ SPAciUG-: 

^ r -pr; ('6-^'J)- 

S Ucc£S/i/£ SCAt^T 4 . /aJQt SFACi/J&-6 

- be At, ^ = k 

n 



SI 



REM CALCULATION OP CONSTANT GEOMETRICAL PARAMETERS 



EFM 


rLOATihie- 'thAp (A<n>B 


CLA INPUTrl 


3 


PDP CONSTi-2 


Z 


STQ ASIDE4-5 


'A.'B 


CLA ASIDE-r5 




PSB INPUT+2 


T? 


STO ASIDE+9 


'/zB -"R 


PAD ASIDEi-5 


‘4.-3 


PDP C0NST>*-2 


Z 


STQ ASIDEi-7 


yzCB--T^) 


CLA INPUT<-12 


nr 


STO REMEM+S 


Ai 


CLA CONST-^l 
STO TEMP ♦18 


1.0 



REM CALCULATION OF INITIAL LONGITUDINAL SPACING 



LDQ INPUTi-2 


■R 


FMP CONST+4 




FAD INPUT 


D 


PAD INPUTrl 


3 


PDP INPUTrS 


n 


STQ ASIDE+8 


i:b.= ^oCB-»-5-o.^a9-i'R) (/) 


PMP C0NSTr2 




STO ASIDErl 


bo 


.STO ASIDE r2 


b ~ LVj 


CLA INPUTrB 


Uo 


STO ASIDE 


M . - 1 U 



REM CALCULATION OP ESTIMATED MOMENTS OP INERTIA 



Initial estimate of total hull moment of inertia: 

1. Assume neutral axes to be located at mid depth 

2. Assume primary bending stresses at the extreme fibers 
to be 20,000 psi. 



(.r' X 



7 £" 




fL. y 5- 

3.0 000 



M -P _ 

HOOOc> 



Effective width of plating in compression: 
Karman-Sechler formula as quoted in ref. 3. 




/, 10 




S3 



LDQ 

FMP 

PDP 

STQ 

LDQ 

Fi’P 

FDP 

STQ 

REM 

CLA 

FDP 

STQ 

STQ 

REM 

CLA 

PDP 

STQ 

CLA 

TSX 

HTR 

STO 

LDQ 

FMP 

STO 

REM 

INSAA LDQ 
FMP 
STO 



INPUTrl2 






INPUT 


D 




CONSTi-6 


1^0000.0 




REMEM 


x^'= NrpAioooo.o 


(First ■ 


INPUTrlS 


MT 




INPUT 


D 




CONST+6 


000 0,0 




REMEM +1 


□1,-= MrP/uoooo.O (Fll?5r £Sr) 


FIRST ESTIMATE OF LOCATION OF NEUTRAL AXES 




INPUT 


T> 




CONST+2 


2, 




REMEM i-2 


= J>/% CF^^^ST 


HSTII'IATf) 


REMEM 1-3 


Zc (First 




CALCULATION OP EFFECTIVE WIDTH (KARMAN SECHLER) 


INPUT+18 


£ 




INPUTi-17 






TEMP 






TEMP 


£/ ryp 




SQRT,4 


srov 




TEMP 


/ ffyp 




TEMP 


{ E /(JTyP^ 




CONSTi-7 


1.70 




ASIDEi-10 


- i/ioie/cTyy 


CALCULATIONS OF PARAMETERS OP LONGITUDINAL SPACING 


ASIDE+2 


b 




ASIDE^2 


b 




ASIDE+3 







SH 



V 

V 



Effective breadth: (ref. 3) 

Curve (a) of Figure 11 (multiple webs under xmiform 
load) is used to determine A 

From (ref. 4) p. 2-31: assume an equation of the 
following form: 



7 = 

X y 

3 O.U- 
H 



il X= C ~ O.S73^{f^/X^S7) GK>DS) 

b ^ 3 



y r- f- (Y-i) -f- % Tx - /^ ("x 

(x-j) 



"o. 3 a. 






D. Oi' 



-(2>. 0 65", 






0.0 0 



a,, - o.w( 
0.31 

^J= -0.0C4T 
r 0 



7=o.w/4-o.3iCx-/)~o. oco('x-/)('x-2) 
= -o.ov -f o.b'/yx- 0.063'x^ 

WH(?/?Cr O.i^X < ‘V.p' 



X 






^ = -o. 0V+0.O.'?7(,7% - O, ox/ 7 /5 V 6 

X = -Q.ouh -h 0.X9 767<^ - o. O^n/suc 
ioY x=b 






5jr 



FDP 

PMP 

STO 

CIA 

FDP 

STQ 

REM 

LDQ 

STQ 

FMP 

LDQ 

TLQ 

TRA 

INSAB LDQ 
FMP 
STO 
LDQ 
FMP 
FAD 
STO 
LDQ 
FMP 
FDP 
PMP 
FAD 
STO 

INSAC LXD 
REM 



CONSTrS 
ASIDE^2 
ASIDE^-4 
ASIDE 1-2 
CONSTi-2 
ASIDE ■►8 



I2.,0 

b 

h 

z 

h/z. 



EFFECTIVE BREADTH ( SCHADE,SNAME TRANS. 11-51) 



A SIDE +2 
ASIDEi-11 
CONST^a 
INPUT^S 
INSAB , 



INSAC 



I---1 
I 



ASIDE»2^-i 

C0NST>9 

TEMP 

INPUT^S 

CONSTflO 

TEMP 

TEMP 

INPUT+5 

INPUTi-5 

ASIDE^2 

CONST^ll 

TEMP 

ASIDE*11 



b 

X = b 

7.7 S 5S 

cu 

'.f o- < l.nSSSh X<b 

f-P >-b 

b 

~0>oH 

~o, oHb 

-O.OHb 

-o.o‘/b + l > 7 <=l 

a, 

b 

-0.02.(71 5M 0 
-O.oMb + O.i'RTfc'lcu 






X»-o,oqb'<-o.'2.«i7fc7 // v// ;; 

-R£s0.r dtJVEx i ^ 



NIX,1 -e- ' 

NUMBERING OP LOCATIONS, KEEL IS LOCATION ZERO 






Locations are niirabered consecutively from the keel (o) around 
the girth of the hull to the centerline at the deck, (n). 

The next two locations beyond the one designated (n) are 
arbitrarily given coordinates (-1, -1). This was done to 
assist in transferring out of the numerous loops found later 
in the program. The above simplifies indexing procedures 
since all other coordinates are positive. 



CLA, NIX 



0.0 



IN SAD 


STO 


LOC , 1 






C — Ij, ^ } « \ ' 5 




PAD 


C0NST<-1 






LO 


IN DA A 


TXI 


INSAE, 1 -1 
1 






(~ 10) 


INSAE 


CAS 


ASIDE ' 






COMPARE C WITH M 




TRA 


INSAP 1 






c > vt ^ leAV£ Loop 




NOP 


1 

1 










TRA 


IN SAD 1 — 






I-P C 


INSAF 


CLA 


CONST 






-KO 




REM 


COORDINATES 


OP 


TWO 


LOCATIONS BEYOND THE LAST PERTINENT 




REM 


LOCATION ARE SET AT 


MINUS ONE TO FACILITATE PROGRAMMING 




STO 


LOC 1-1,1 






Z a- -f.o 
n+l 




STO 


LOC 1-2,1 






y= - LO 

n-M 




STO 


LOC 1-17,1 






Z = — /.u 
mi 




STO 


LOC 1-18,1 






y - ~/.o 




REM 


CALCULATION 


OP 


LOCATION COORDINATES 




REM 


COORDINATES 


ALONG BOTTOM 




LXD 


NIX,1 






T^es^r IN1>£X i- 




CLA 


NIX 






0,P 


IN SAG 


STO 


LOCi-2,1 






y =r O; > t? J 3 b/^, • « • 




PAD 


ASIDEi-8 






b/a. 




STZ 


LOC 1-1,1 






z = o 


INDAB 


TXI 


INSAH, l --r 
1 






(- / fc) 


INSAH 


CAS 


1 

ASIDE+9<J- 






cohPAHB Y W4TH 




TRA 


INSAI 1 






i-f y > VlB -R J LOOP 




NOP 


1 

1 










TRA 


INSAG 1 — 






y ^ 




REM 


COORDINATES 


AT 


TURN 


OF BILGE 



, I 
^ <5 y 



FIGURE 3 



Coordinates along the bottom, turn of the 
bilge and side of the hull 




3-7 



UJ 



I 



! 



INSAI FSB ASIDE^9< 
PDF INPUTr2 
STQ TEMP 
CLA ASIDE<-8 
PDP INPUT^-2 
STQ TEMPi-1 
INSAJ LDQ C0NST-*-12^ 
CLA TEMP 

TLQ INSAK 

TSX SIN, 4 
STO TEMP•^2 
CLA TEMP 
TSX COS, 4 
STO TEMP^-3 
CLA CONSTrl 
FSB TEMPr3 
STO TEMP-»-4 
LDQ TEMP -f 4 
PMP INPUTi-2 
STO LOCi-1,1 
CLA TEMPi-2 
PAD CONST 
STO TEMPI- 4 
LDQ TEMPr4 
PMP INPUTr2 
FAD ASIDEi-5 
STO LOC 1-2,1 
CLA TEMP 

^ 2 . 



'I' 






"R 
0, = 

■kb 

•R 

A0 = bA-R 
\.510S = -kTT' 

9 

if <9>i:Tr, LEAVF LOOP 
3IN © 

0 

cos & 

LO 

cos & 

1 — cos <9 

/ - cos <9 

e='RCI- cos <9) i'j) 

sin © 

-1^0 
srm I 
SIN 9 -/ 

4:-B 

y = .^■B■K'R(rsi^/<9-l) ( 0 ) 

e 



LO 



FIGURE 4 



Coordinates along the Deck 




{lOj 



U / 









V 1 










1 C > 
1 






PAD 


TEMPrl 


1 

1 


A(9 




STO 


TEMP 


1 

1 


© 


INDAC 


TXI 


INSAJ,1 — 


1 

1 






REM 


COORDINATES 'ALONG 
1 


SIDE OF HULL 


INSAK 


FSB 


C0NSTfl2-s 




l.5'70f - 'n'/a. 




STO 


TEMP 




© - 




LDQ 


TEMP 








PMP 


INPUTi-2 




-R 




PAD 


INPUTr2 




"R 




STO 


TEMP 






IN SAL 


CLA 


TKMP-« 




z 




LDQ 


INPUT 




“D 




TLQ 


INSAM 


"1 


Vf Z > LBAVE 




STO 


LOC 1-1,1 


I 

I 


Z. 




FAD 


ASIDE+8 


I 

I 


Ik 




STO 


TEMP 


I 


z 




CLA 


ASIDE 1-5 


I 

I 


B/^ 




STO 


LOC 1-2,1 


I 

I 


V = "B/J. ii) 


INDAD 


TXI 


IN SAL, 1 — 


I 

I 


(— 1(a) 




REM 


COORDINATES ALONG 
1 


DECK 


INSAM 


CLA 


INPUT ^ — 


— I 


-D 




PAD 


ASIDEi-5 








PSB 


TEMP 




Z 




STO 


TEMP 




y ~ -ITS 4-D - Z 


INSAN 


CLA 


TEMP< 




y 




TMI 


INSAO 


“1 


i-l^ y <1 0 , UA VC 




STO 


LOC 1-2,1 


I 

I 


y 




PSB 


ASIDE 1-8 


1 

1 










1 

1 


(o OL 






C-! 


1 6-7 





V 



h) 



LOOV 



( 10 } 

LOO P 



FIGURE 5 



Hydrostatic Heads 







V/ 



M^j=: W- 2- 

1*1 Q ~ y 0 1 0 t ( F - V ) f 0 



(loj 

00 



IN DAE 

IN SAG 
INSAP 



INSAQ 



A 



y 

p 

z =1> 



STO TEMP 
CLA INPUT 
STO LOCi-1,1 
TXI INSAN,1 — ' 

REM BEGINNING OP GENERAL PROGRAM 

REM CALCULATION OP MAX HYDROSTATIC HEAD EACH LOCATION 



(-!(.) 



LXD NIX,1 ' 

CLA LOCrl,!^— 
TMI INSAS 



CLA INPUTi-4 
PSB LOCt 1,1 
STO TEMP 
CLA INPUT^S 
PSB L0C<-1,1 
STO TEMP^-l 
LDQ TEMP 1-1 
PMP C0NST«-13 
STO TEMP-j-1 
LDQ L0C<-2,1 
PMP C0NST«-14 
PAD TEMP + l 
CAS INPUTi-14 
TRA INSAQ — 
NOP I 

CLA INPUT-J-14 j 

CAS TEMP^^ ' 

TRA INSAR 1 

i 



~\ 



1 



'RESET JND^X I 
z 

ifz--/ LeA\/£ LOOT- 

w 



Mu. = W-^ 

F 



is) 



X. 

F -z 
F-z 

O, ^ LLO ~ cos 3 o'’ 

o.8’(.L0 CF -z) 

y 

o -SO — 3 

O ,S-LU 0(F-:B) oj 

COMPARE H* WITH Huj 
if- H © ^ l-\ u) 

H"* if h\io ^M© 

cofAPARE LARG-E'R H With H< 
i4 Mo^ F(9 And Hvjj 









NOP 



FIGURE 6 



Distribution of Stresses due to Ship Bendlnp; Momenta 




^ 5 ' 



INSAR 

INDAF 

INSAS 



IN SAT 



IN DAG 
INSAU 



INDAH 



CLA TEMP 
STO LOG 1- 15,1- 
TXI INSAP, 1— 



/■ t 

■Ho i~r Ho ^ He Hw 

THE LAKETTST V/\LU.r OF /I 

REM CALCULATION 0F|SHIP (PRIMARY) BENDING STRESSES 
LXD NIX,1 X ■RE5£FT INDEX D 



CLA INPUTi-12 
FDP REMEM 
ST^ REMEM«-10 
CLA INPUTfl-13 
FDP REMEM 1-1 
STQ REMEM-!- 11 






ir 

Mr 

x,“ 

(M/xj7 



f Z>zt LE'AVE /-OOP 



zt -2 



-2 



cM/x)r 

07'^= 



REM STRESSES DUE T(^ POSITIVE SHIP BENDING MOMENT 
CLA REMEM -)-2^ 

FSB LOC+1,1 

TMI INSAU 

STO TEMP 
LDQ TEMP 
FMP REMEM-j-10 
STO L0C-!-8,1 
TXI INSATjl — 

CLA L0C*1,1^ 

TMI INSAV 

FSB REMEM-C2 
STO TEMP 
LDq TEMP 
FMP REMEM ♦ 10 
STO L0C-»-9,l 
TXI INSAU, 1 — I 












ZL 

l-f ^ - 






loot 



21- Z. 



CE</x). 






-I- , 

Zc 4Z 



9 ^ 



6" 1 6 j 

Ll 






Bryan Buckling criteria for plates loaded in end compression, 
simple support all edges. 









W 7, / ? X J g> X 

u (i~ 0,0 f) 



0 ~/^> \ - *-! 

- - /or^^c/ssy/0 



t ^ 

S/AJC£ 



b fai^ 






Zo/^3> /^Acto/?S Q/^ ^AP^TY a 

<rT - 



b f ^r. 

10 H !H 




^ = JOY /o^ 
Y0> — o, S 



0 >S^ <0 



L 7 






INSAV 

INSAW 



INDAI 

INSAX 



INDAJ 

INSAY 

INSAZ 



REM STRESSES DUE TO NEGATIVE SHIP BENDING MOMENT 



LXD NIX,1-^ - 
CLA REMEM r3-e- 
PSB LOC«l,l 

TMI IN SAX 

STO TEMP 
LDQ TEMP 
PMP REMEM 11 
STO LOC-i-O,! 

TXI INSAW, 1 — ' 
CLA LOC>i-l,l-^n^ 

TMI INSAY 

PSB RET^EMfS 
STO TEMP 
LDQ TEJjIP 
PMP REMEM V 11 
STO L0C-!“8,1 
TXI IN SAX, 1 — ' 



T?£S£T INV&X I 

Zc 

z. 

if 

zr-2 
(m/t)~ 
cr;-r O'-'/r}," 



(-<0 



z: 

oj; 



(-/O 



if z=~l i---.4V£ LOoP 

z -Zc" 

Z ~2c~ 

C'''/x)r 

<r/ = ( - 2J Zc < 2. 



REM SELECTION OP HULL PLATING BRYAN BUCKLING CRITERIA 



LXD NIX, 3^^ 



CLA L0C-cl7,l^ 



TI/II IN SBC 



CLA LOC-9-25,1 
TSX SORT, 4 
HTR 

PDP CONST-j-15 
PMP ASIDE<-2 
STO TEMP 

li 



"RB5E.T |N'J)EX 1 

'rf LBAV£ loop 

<rr" 

£-7?i?0(\’ S-roR 

lom q.O 

b 

^ • V b ^ 

T 



// 



Lf 



Tertiary Stress Calculations (ref. 5). Stress due to lateral 
load on plate. 









~>y .6 /<= 

h 






“ /-/ ~:p, T< 

iXLS/b' H (c..) y 
S' - 0.0 H (i^) 




Stress schedule in plating midway between longitudinals 
is specified by INPUT*19. 



<r^ ~h (J^ — cT^;=» 

crr-oi^cr^ ^ 






-a 



REM SELECTION OP PLATING THICKNESS FROM STD STOCK 



INSBA CLA 
TMI 
CLA 
CAS 
INDDA TXI 
REM 
NOP 
INSBB LDQ 
PMP 
PDP 
PMP 
STO 
STO 
REM 
PAD 
PAD 
CAS 

INDDB TXI 
NOP 
CLA 
PAD 
PSB 
CAS 

INDDC TXI 
NOP 
CLA 
STO 



PLATE, 2-^ 
INDDC T2 — 
TERIP 



PLATE 

INSBA, 2 — j- 
TERTIARY STRESS CALCULATION 



PLATE -J>£SI& (LV/FtV 
i-f u/ft'’=-I^ s’K(P 

compare With i; (AWil/10L£ 

C“3j 'i-p -t (rn\^)>t (Avail.) 



b 



'P 



ASIDEt3-J-1-« 

L0C^31,1 
PLATE«-2,2 
C0NST^>16 
L0Cv26,l 
L0C«58,1 

STRESS SCHEDULE BETWEEN LONGITUDINALS 



o.oii.7 






05-0,0/a7l-(p 



(/c) 






L0Ct24,1 

INPUTfl-19 

INPUTtIS 



n 



INSBBo2 — 



LOC-j-25 






L0C<^26,1 



INPUT^19 

INPUT^^l? 






INSBB, 2— I 






C0MTA'R£ Crf^OS.-t(Tj V\/ITH 0 ^ (l7j 



C-3) 









COA1P4RE er;' 



PLATE, 2-a. 
L0C-P19,! 



C-3) 



<yi -h (Tj WITH <^vp 



'Plats h s- ki at iosj CitB / ft^) 

D ca/PT^] 



7 0 



INDBA 
IN SBC 



INDBB 

INSBD 



CLA PIATE<^1,2 



STO L0C*!»20,1 






± 

t 

-t 



STO LOG ^52 pi 
CIA PIATE^2p2 
STO LOC-9>21pl 
LXD NIX, 2 

TXI INSAZpl— 1 I (r^^) 

LXD NIX,3-<-- 

REM PLATE THICKNESSES TO BE ASSOCIATED WITH SCANTLINGS 



'Reset i/oj>ex jl 



HEZET n^3lCES / ANO) 4, 



LDQ L0C»20 
STQ LOCo-7 
PMP ASIDE-j-10 
CAS ASIDEfl-2 
CLA ASIDEs^2 
NOP 

STO L0C«14 

TXI INSBDpl-n 
I 

CLA LOC<^lpl^ 

TMI INSBP 

CLA L0C»12,1 
PAD LOC ^2.0^1. 
PDP C0NST4-2 
STQ L0C«?7pl 
STQ LOCo-39,1 
PMP ASIDE ^►lO 
CAS ASIDE «>2 
CLA ASIDE •9'2 
NOP 

*75 



n 



-t 

t 

X-/t 

COiVIPARE r WITH k) 

b 

THE Si^ALLER of X’ Oi? b 



(- 3 ^) 



if Zs=-/ L£AVf LOOT 
t 

t 

O- 

-t 

t 

KVt 
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FIGURE 7. Stresses due to Secondary Bending Moments 
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i-f 2>Zc, SKIP 

Xayy 



6-3ij 



!*11,1<J 



REM MOMENTS OF INERTIA 
CLA LOC*l,l<^ 

TMI INSCU 






INERTIA ALONG SIDE OF HULL ABOVE NEUTRAL 

^ AXIS 

T 

^ ArA2^J-*-^x^ 

(.- 3 ^ 

ALONG THE DECK 
z 

i‘f 2 -r-/, L£A^£ LOoP 



7-2. 



?/ 



INDBT 

INSCU 



J 



^ll \Hl 
CIA L0Cr9,l 
FAD TEMP 1-3 
STO TEMPI'S 
TXI INSCT,1- 
LXD NIX,1-^- 
TSX M,4 

PZE REMEM, 0, REMEM ♦! 

REM ACCURACY TEST FOR 

CLA TEMP *3 

FSB REMEM^l 

FDP REMEMol 

STQ TEMP 

CLA TEMP 

SSP 

CAS INPUTS 11- 1 
NOP ! 

TRA BACK 1 — I 

CLA TEMPi-2-^- 
FSB REMEM 
FDP REMEM 
STQ TEMP 
CLA TEMP 
SSP 

CAS INPUT<-11-| 

NOP 






TRA BACK 



—S' 



TRA INSCV 

REM ACCURACY CRITERIA 



Z 4- 21 

/^/i)£:y i. 

VRiNT OUT x,~ Fo/? 

C Hi^CK' O I- Ik'T r R /') I.'] I r. 
£ii'TlMA ri;:i OF FlOiA. OF f/\ieRT'iA 

MOMENTS 0F INERTIA 

X,“ CcotAVura d) 

X,' B5Tin\AT£.) 

r~ iPi<‘E\Aious E sTimAre) 
at- = x,~ (COmP)~ x; (PC A 

AT," 

coMF.^Ft' Al,~ WITH AX, (M/4x) 

if AX,” > AX' (max) 

T,*^ (C O MPuTBI)) 

j:,'*' Cr>R£\/t oos estimate) 

CPR^vioui' JzSTiniA'r/^) 

^ T, " (CoM pj - 2V c P. £ .) 

4T, = ^4- crF.y 



AX 



I- -r 



C o /W / 



'''ARZ Ax,"^ WIT^/ AT, (I'lAx) 



■f AX^' AX. (t'iAx) 

>-f AT,-^/^A/i) Ar.-/\R£ CAXiC/H/fx) 






FOR SHIP MOMENTS OF INERTIA HAS 

FAILED, 



7*r 






Accviracy criterion for hull moment of inertia ie given 
as a decimal fraction by INPUT^-ll (^I) . If this criterion 
is not met, the moments of inertia are altered by amoxonts 
given by C0NST<-27 and CONST+28 which are in this case lOJ^ 
of the originally assxmied moments of inertia. 

The accuracy requirement for location of neutral axis 
is specified as one half the distance between longitudinals. 
If this criterion is not met, a mean between assumed and 
computed values of locations of neutral axes are used as 
the new assvunptions , 

The above has been found to be necessary in order to 
force the problem to a solution. 
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REM 

back CIA 
PAD 
PDF 
STQ 
CLA 
PAD 
PDF 
STQ 
CLA 
CAS 
TRA 
NOF 
LDQ 
PMF 
STO 
TRA 

INSDC LDQ 
PMF 
STO 

INSDD CLA 
CAS 
TRA 
NOF 
LDQ 
PMF 
STO 
TRA 



THE FOLLOWING 

J 



REMEM 1-6 
REMEM ■*•2 
CONST+2 
REMEM <*2 
REMEM^V 
REMEM 1-3 
C0NST■^2 
REMEM -*-3 
REMEM 
TEMF *2-- 
INSDC 



I 



I 



C0NST+28«J 
REMEM 
REMEM 
INSDD 1 



C0NST-r27<-j 
REMEM I 

I 

REMEM I 



REMEM+1*- J 
TEMPI’S 1 



NSTRUCTIONS MODIFY SHIPS MOMENT OF 
^ , INERTIA 

fJT.) 



INSDE |--j 



C0NST«-28**J 
REMEM <•! 
REMEM 
INSAS 



(CompureD) 

£ST\^AT£) 

■z~ EST,) 

Zc" (,C o\rY\T^~TE-l>) 

• 0 

e.sT\yy^AT(F) 

E-s-r) 

cokm'PAR£ with CCornPUT£i>) 

rf X.'^CPi^.) P (CokmiT) 



I J 0 

x,'*’ Cri^Eu est) 
xr^ CN^cO ES-r/^y^ATs) 



0.90 

T^C'Pf^E^. 

X.'^CNew £%-T\fnA-Te) 
xr est) 

coi^PA'HE VJ /TA Xr Ccom P i^TCj)) 
,{ xp ( 7 . > IT," Cco/^-r;) 



I. I 0 

XpCFFe^u EstJ 
:rr(hJ£oJ j~stimAT£) 









p£TURN ~rO pES/ZE COl^FoN 
i/hJVsR h>Eix> P7?//'iARy s~r/?Ess 



INSDE LDQ 
PMP 
STO 
TRA 
REM 

INSCV CLA 
STO 
CLA 
STO 
CLA 
FSB 
SSP 
CAS 
NOP 
TRA 
CLA 
FSB 
SSP 
CAS 
NOP 
TRA 
REM 
STZ 

INSBX CLA 
TMI 
CLA 
FAD 
STO 



fvj i 

CONST^g?^ 
REMEM 
REMEM i-1 
INSAS 






O.90 

X,~ C £ST.) 

j:,- (veu) E ST \ \\AAra) 

R(=~Tof?f^ TO CCii\/\ pQ toyrs 

iiNV6P PRlMA^'/ StR/~^S 



ACCURACY TESTS FOR LOCATIONS OF NEUTRAL AXES 



TEMPf-3<-- 

REMEM<»-1 

TEMP-j-2 

REMEM 

REMEM-»«6 

REMEMr2 

ASIDE«-8— 1 

INSAS 1- 

I 

REMEM 1-7^ 
REMEM *3 

ASIDE+8 — 



IJ 



INSAS 



JT,- C computed] 

xr 

JT(4 0/11 p uTQD) 

X 

£St) 
Z-"*’ C c 0 iAFuT^ 2 >) 



(To M VA 



p£ A2<^.W/TH tya 



IF ix-Zc > 'ReruRF 

Z~ i?R£\J. £ST) 
z~ (COMpoTST)) 

compare With ^/X 

IF A 2c“ > Va \^GTWRhJ 



CALCULATION OF TOTAL CROSS SECTION AREA 



TEMP< ' 

L0C«*I^1<^ 

INSCW 

LOC^-7,1 

TEMP 

TEMP 

% 



0 . 0 

z 

\F 2.- Loop 

Z A 
^ A 



\f!(^ 
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INDBU 



INSCW 



INSDB 



TXI INSBX,1 — ' I 
REM STORE AREA, NR SCANTLINGS AND FRAME SPACING 

CLA TEMP<- 1 

STO REMEM ♦12 



•f 



CLA ASIDE 
STO REMEM ♦13 
CLA INPUT^S 
STO REMEM^14 
TSX L,4 

PZE REMEM ♦12,0, REMEM ♦ 14 

CLA TEMP ♦IS 

TMI INSCZ^O 1 



A, 

H 

h 

a_ 

Ow 

PR jnt o ot a,'*’, hj 

COK)Tf?0L LOCA'T/Ot'^ 

if cot^rRou LocA^/osJ HA^ - i-O 



REM COMPARE AREA WITH MINIMUM AREA THUS PAR OBTAINED 

I AND STORE TH 

I 

REM LESSER VALUE OP THE TWO AREAS AND ITS NR. SCANT. 

AND PR. SPAC 



CLA REMEM ^12 
CAS REMEM ♦S 
NOP 

TRA INSDB - 
CLA REMEM^12 
STO REMEM^S 
CLA REMEM+13 
STO REMEM^S 
CLA REMEM^14 
STO REMEM^g 






AT 

cotApARS. AT' W'-th ATCP'^) 



if at ^ 

AT 

= AT 

Co C-f or in irl A) 
A 

(for (1^ iV\ /!) 



I ' 



REM RESET FOR NEXT NUMBER OP LONGITUDINALS 

J I 



LXD NIX,3<- 
CLA ASIDE 



R£SC^T ifJD/CpS / A/^T> ^ 

n 



\is 









5-V 



PAD 

STO 

CAS 

TRA 

NOP 

INSCX LDq 
PMP 
PDP 
STQ 
TRA 
REM 

INSCY CLA 
PAD 
STO 
CAS 
TRA 
NOP 
CLA 
STO 
TRA 
REM 

INSCZ CLA 
STO 
STO 
CLA 
STO 
STO 
CLA 



INPUT•^9 

ASIDE 

INPUTi-lO 



1 



INSCY 



n 



ASIDE^l-^-^ 
INPUT^a 
ASIDE 
ASIDE<c2 
INSAA 



A n 

n 



CoiAI'^Ai^S: t! WITH 

if n > 



ho 

ftc 

n 



b - y 



0 (t 



FO/? hJFXT 

COM I6/WA~T/ o 



RESET POR NEXT FRAME SPACING 
INPUT^S-^ — I 
INPUTi-6 



INPUT^S 
INPUT■^7 — I 
INSCZ !■ 



INPUTtS 

ASIDE 

INSCX 



J 



c«- 
A Co 

Co 

com P/A RS Oo WITH 
if Co > 



Ho 

n r He 

l< C 7 0 IV-' R T d c O (M Ru y ^ 

RESET TO WORK OUT MINIMUM AREA COMBINATION 

I > . 

REMEM ♦•8 < 1 (MiAj 

INPUTt-8 cx_ - ooCrti.'ri^ 

INPUT*10 - coUH ii'>) 

REMEM ♦■9 »'1 (iTMinj 

r r» I h) 



INPUTi-5 

INPUTi-7 

CONST 



rif - Ki 

-/.o 



(tnin) 
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STO 
TRA 
REM 
CIA 
PDP 
STQ 
CIA 
PDP 
STQ 
LXD 
TSX 
PZE 
TSX 
PZE 
INSDA CLA 
TMI 
CAL 
ACL 
SLW 
CAL 
ACL 
SLW 
CAL 
ACL 
SLW 
CAL 
ACL 



TEMP f 18 

INSAA 

PRINT OUT ROUTINE 

REMEM 1 

CONST^SO 
REMEM 
REMEM 
CONSTrSO 
REMEM ♦! 

NIX,1 

M,4 

REMEM, 0, REMEM ♦! 
Q,4 

REMEM+2 , 0 , REMEM ♦S 
L0C«-1,1- 
OUT 



5£~r CON^t^OL L OCAT/Ot^ = ~ I >0 

j^Tu1?fO TC co/^ p u're ^cAprLih>erS 

rof? A/z/u/Mi/'/'i A A 

TO PRINT OUT SCANTLING AND PLATE INFO 
(\a^) 

N<-i 

zr,'^ /c ) 

r - Cm*") 

/w*-l 

C f 

t^es£T ikTux^A j. 

VR\K>T quT OF U0€i^7lA 



PRINT Out LQcAT/okIS OP AJFuT/x^L 

AY^S 



CRANK 

ONE 

ONE 

CRANK 

TV/0 

TWO 

CRANK 

THREE 

THREE 

CRANK 

POUR 






\i Z - -!j Loop 

THP POLLOCP/AJG- /N STA’U CT/dN>^ 
P^p-rAUJ rd Ovt 

Results op ca MFutat/ o/'JS 









SLW FOUR 



ONE 

TWO 

THREE 

POUR 

INDBV 

OUT 

L 

M 

Q 

N 

0 

P 

INPUT 

ASIDE 

REMEM 

LOG 

CONST 









r/?/AJT Out' CoO/? 3>/AJAT£^ Of 
OuT Q£^^\ V € £ / & ^ 



pi?//^T OUT f£fJG-7H/^ADi^S or 
Qryl^AT/cN (r\A'A) 

VR//OT OUT tlat£ cr rre RL !/<^c 
coo RV //^AT £5 Aa>T> PfA T£ 

^S/Cr/i^T (L8/AQ^rT) 



c/u£> of= CO rirurAT /ON 

pr/f^rr o or s-r/}Tjr /n c A/rs 

A=P6.1 



INERTIA MIN »E 15. 8 



TSX N,4 

PZE LOG -3 2,0, LOG -30 
TSX WOT, 4 

I 

PZE LOG -29,0, LOG -27 
TSX 0,4 

I 

PZE LOG -26,0, LOG -26 
TSX P,4 

PZE LOG -16,0, LOG -13 

I I 

TXI INSDA,!-^ C-3^) 

HLT ' 

TRA BLOCK 

BCD 76H AREA«E15.8,6H N»P6.1,6H 

TRA BLOCK 

BCD 812H INERTIA PL-E15.8,16H 
TRA BLOCK 

BCD 918H NEUTRAL AXIS SAG-P6.1,19H NEUTRAL AXIS H0G*P6.1 
TRA BLOCK 

BCD 810H LOCATION =P6.1,6H Z*P6.1,6H Y-P6.1 

TRA BLOCK 

BCD 627H LENGTH/RADIUS OP GYRATI0N-P6 . 1 
TRA BLOCK 

BCD 910H L0CATI0N=P6.1,4H Z»P6.1,4H Y=P6.1,5H WT-P6.1 

BSS 30 
BSS 15 
BSS 15 
BSS 5000 

DEC -1.0,1.0,2.0,0.29289,-0.4292 C o 
DEC 12.0,40000. ,1.70,7.7855,-0.04 



or r /Aj fT /oaj a /u 2> NCsc a '’ i'A r/oP 

(jfO STO/rAGC: A-OCAT/OA/S /N 

COAI P 0T<£ P /^(FAlO/^y 



7 ? 



TEMP 

NIX 

CRANK 

HANDL 



00008 

INSDF 



INSDG 



INSDH 



DEC 0.29767,-0.02171546,1.5708,0.8660,0.50 

DEC 10414. ,0.0127, 30. ,18. ,324.0 

DEC 54. ,9. 6, -1.6, -0.88,16970.6,20. ,1.5 

DEC 0.90,1.10,2240.0,144.0,0.0,0.0,0.0,0.0,0.0, 



/V t /I/ /■) . 1 X' / C' / 

/ A ' • ' I / / ■ 



C V A /U r- X -'■/ OA r/ K. -f a^A 

U /L. OC- A ' CC O L ^ / 0 /? 

IS s<i- r TO X\c i ''' ^ ^ 

I i t'\ L / <• ' ^ /*/'■/ 

c 

IF ui'J A) C r L o W) I I A S c o K l\' 0 
NVi\uit 



BSS 


40 


PZE 




PZE 


32,0,32 


PZE 


0,0,15 


PZE 


0,0,31 


PZE 


0,0,9 


PZE 


0,0,2 


TRA 


INSDF 1 


SXD 


1 

TEMP 1-17,1?' 


LXD 


0,1 


TNX 


INSDG, 1,4| 


CAL 


0 i 

1 


HTR 


1 

1 


CAL 


0 


STA 


INSDH 


PXD 


0,0 


LXD 


TEMP 1-17,1 


TRA 


0 


END 


START 



S Ti) I ' / /•" 

Oc c u I'l tic. tj 



■=> RstoR/^ ro 

£ !KJ D 0£ 



o \Ai: T r:/ A i*t 

i't a,. A- > l O^-'^-^' 



/AA/R 

PRO GrRA M 



loo 



CST M885-721-PR0GRAM 



REM 


INPUT INFORMATION 


FOR PROGRAM M885 


SAP 


M885-721-INPUT 




LST 


OFF 




ORG 


INPUT 




DEC 


(FT) 


DEPTH 


DEC 


(FT) 


BEAM 


DEC 


(FT) 


BILGE RADIUS 


DEC 


(FT) 


PULL LOAD DRAFT 


DEC 


(FT) 


WAVE CREST HEIGHT ABOVE KEEL 


DEC 


(IN) 


INITIAL FRAME SPACING 


DEC 


(IN) 


INCREMENT OP FRAME SPACING 


DEC 


(IN) 


FINAL FRAME SPACING 


DEC 




INITIAL NUMBER OF LONGITUDINALS 


DEC 




INCREMENT OF NUMBER OF LONGITUDINALS 


DEC 




FINAL NUMBER OP LONGITUDINALS 


DEC 




ACCURACY CRITERION FOR MOM. OP INERTIA 


DEC 


(FT-TONS) BENDING MOMENT SAGGING 


DEC 


(FT-' 


TONS) BENDING MOMENT HOGGING 


DEC 


(FT) 


MINIMUM HYDROSTATIC HEAD 


DEC 


(PSI) 


ULTIMATE STRENGTH 


DEC 


(PSI) 


YIELD STRENGTH IN TENSION 


DEC 


(PSI) 


YIELD STRENGTH IN COMPRESSION 


DEC 


(PSI) 


YOUNGS MODULUS 


DEC 


(PSI) 


SECONDARY BENDING STRESS AT PLATE 


END 


0 





'Post /‘i o />■■{ T^SCi ue^T' 



to / 



PMD M885-721-PR0GRAM 
PMR L0G,L0C^1000,PL0,FPR 



CLR 



7) /yi/AJ/S T-/?x4 ~r/U£ 



/h>ST/?Uc T/ofJS 



PAK 

RIP M885-72 1-DATA -DAVIS 
RIP M885-721-INPUT 
RIP M885-721-PR0GRAM 
BGN M885 -721 -PROGRAM 
XPM M885 -721 -PROGRAM 
TER M885 -72 1-PROGRAM 



lo:u 




«» 



1 



•e^ 




1 



Index of Addresses And Their Contents 



CONST 0 


-1.0 


SCANT 0 


It 


1 


1.0 


tr 


1 


tt 


2 


2.0 


It 


2 


tf 


3 


0.29289 


tt 


3 


tf 


4 


-0.4292 


tt 


4 


tt 


5 


12.0 


tt 


5 


tt 


6 


40000.0 


tt 


6 


tt 


7 


1.70 


tt 


7 


tt 


8 


7.7855 


tt 


8 


tf 


9 


-0,04 


tt 


9 


tt 


10 


0.29767 






tt 


11 


-0.02171546 






tt 


12 


1.5708 


INPUT 0 


tt 


13 


0.8660 


tt 


1 


tt 


14 


0.50 


tt 


2 


tt . 


15 


10414.0 


tt 


3 


tt 


16 


0.0127 


tt 


4 


tt 


17 


30.0 


tt 


5 


tt 


18 


18.0 


tt 


6 


tt 


19 


324.0 


tt 


7 


tt 


20 


54.0 


tt 


8 


tt 


21 


9.6 


tt 


9 


tt 


22 


-1.6 


tt 


10 


tt 


23 


-0.88 


tt 


11 


tt 


24 


16970 


tt 


12 


tt 


25 


20.0 


tt 


13 


tt 


26 


1.5 


tt 


14 


t1 


27 


0.90 


tt 


15 


tt 


28 


1.10 


tt 


16 


tt 


29 


2240.0 


tt 


17 


tt 


30 


144.0 


tt 


18 


tt 


31 


5.0 


tt 


19 



BEAM 


DESIGNATION 


PLATE 


0 




ti 


tt 


1 


ti 


tt 


tt 


2 










cj 








I. 









blank 

blank 

d 



D 

B 

R 

F 

W 

a & 
A a 

Ho 

An 

IV 

Al 

mT 

Mr 

Ho 

^v7" 

E 



lb/ft2 

t 

t2 
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V 






I f 



» M 






o 



> 

N* 



i 



J H H N M 












CW 



0 - 



V? 

IS 



10 



o 

N 



.j<=t 






•o 



s; 



jo-k L- 
'^+-|-+o'o 
HH N N 



i! I 

Vi) 

I^ 



i 



^4-+4.4 4-f 



C' 



- d S’ ^ 
^ ^ ^ ^ 



loif 




^ I OS’ 






! 






0) 

-|H 



i;! 

V 

o I , 
^ CO 



v« 

n - 



’ — ^ :3- lo o 

+ -*• 4 1- + t 



c\> tr* 

4 f + 



4-/0 



I 



i 

i I 









o 



0 ^ 



V 

th 






'n 









«o 

fN. 



o 



rv 

\3 



5 ^ M 



s 






O O o 

F P 

^ 

t 

6 0) v> 

kit 

III 



*i 5 ^ 



V, 

'«< ' r| . *< • H, A J rt 

< ^HHU H 



I? 






t-V 



4 ' A 

m'h 



k 



*2 

o 



w 

n. 



ri 

V* 



N V 



b"’ 



vt 



+ '*-'^ ♦+-f+44-f+t1-+4 + 4-+ + ++ +*4'Ki + '»^ f 



<4 

vb 



/£> 6 ' 



4-JO 



PLOW DIAGRAM FOR SELECTING SCANTLINGS AND PLATING 



constajit geometrical parameters 

tB-R, ^(B-R), set A, (min), 
set control location #1 = 1,0 



initial longitudinal spacing 
■|b , , b , n ^ 



first estimates of locations of neutral 
axes and moments of inertia 

ir, I,-, Z-, z- 



effective width >T 

k 



parameters of longitudinal spacing 
b"-, b’/l2, b/2 



effective breadth > 



n\ambering of locations 

c ^ 0,1,2, ,,,n 

is c > n? A^o 



i 



assign coordinates (-1,-1) to 
c ■ n+-l, n + 2 






coordinates along the bottom 
is y> iB-R? no - 



coordinates along txirn of bilge 
is e>i7T? NO 



coordinates along side of hull 
is z>D? 



coordinates along deck 

is y<0? NO 



hydrostatic head 
is z < 0? 



NO 



/07 



X 



ship bending stress factors 
(Mt/ip, (M,7l7) 

tensile stresses due to positive ship 
bending moment 



is z > ^ 0 



L 




1 

compressive stresses due 


to positive 


ship bending moment 




is z < 0? 


No 



1 

compressive stresses due to negative 

ship bending moment 

is z > z;? 



tensile stresses due to negative ship 
bending moment 

is z < 0? — - NO 

^ 

minimum thickness to withstand buckling 



select thickness of plate 

is t ( available) > t (min. )? incr . t (avail)) 

1 1 

stress schedules 

are yield stresses exceeded? incr t (avail)) 
Y 

store plate information 

is z<0? 



V 

secondary bending moments 

is z < 0? >^0 



required section moduli 

radii of gyration (BUSHIP'S & Moncrieff) 
is z < 0? NO 



Y 

plate parameters for selection of scantlings 
t, ^t, X t, XtVl2, x"t, KtVlS 



Y 

/Of 



JJL 



X 










«» 







J 






I 

t 



conversion of beam characteristics to 
beam plate characteristics 
a/kp l/c, l/c' 
are these characteristics 
adequate? — >select next beam- 

I 

store beam and beam-plate information 

is z <0? 

i 

neutral axis due poso ship bending moment 

nI* ^ — 

add up total area 

is z > z^? 



^/0 



add up effective area 

is z < 0? 

i 

neutral axis due neg, ship bending moment 


add up effective area 

i s z > z “ ? VI 0 







''T 

add up total area 
is z < 0? 


/JO 



i 



exchsinge computed and assimied 
locations of neutral axes after 
computing locations of neutral axes 

i 

moment of inertia for positive ship 
bending moment 



add total area x (dlst to N.A.) 

is z > z"^ ? NO — 

; 

add effective area x (dist to N.A,) 
is z < 0? — NO - 

add it 



is y > i(B-R) 



h)0 




I 



f 









k 










add 



jyy 

is z > ? — NO — 



u 






K 

liyy 

is Z 

i< 


= D? - 


— NO — 


1 

II 

is z 


< 0? — 


— fJo — 



moment of Inertia for negative ship 
bending moment 



add effective area x (dist to N.A.) 

tJo 



I 



is z > z”? 



add total area x (dist to N.A.) 
is z < 0? f/0 

I- 



add la 

is y > i(B-R)?— NC- 



L 




V 

y y 

is z > z' ? — 


— NC— 






add I^yy 

is z = D? — f^o 






add li 

is z < 0? — 

compute A I| 

is L 1*< Spec'fi'eJ Ax— /VO 

i 

compute h I I 

is A ipeti'fie./ AX — >y£S — " 

^ _ 

increase or decrease I"/" and I, by 10%, 

alter locations of neutral axes 

and retiarn to try again 









//O 
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APPENDIX D 

PROGRAM FOR DESIGNING THE WEB FRAME 
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CST M885~721-DATA**DAVIS 
SAP M085-721-PROGriAM 
LST OFF 
PRG OFF 
COMMON SYN/25 
MICMDl SYN/121 
SORT SYN /356 
COS SYN /A23 
SIN SYN /A2A 
BLOCK SYN /520 
WOT SYN /1376 
ORG /10570 
START CLA HANDL 
COM 

STD INDAA 
STD INDAB 
STD INDAC 
STD INDAD 
STD INDAE 
STD INDAF' 

STD INDAG 
STD INDAH 
STD INDAI 
STD INDAJ' 

CLA HANDL+1_ 

COM 



STD INDBA 
STD INDBB 
STD INDBC 
STD INDBD 
STD INDBE 
STD INDBF 
STD INDBG 
STD INDBH 
STD INDBI 
STD INDBJ 
STD INDBK 
STD INDBL 
STD INDBM 
STD INDBN 
STD INDBO 
STD INDBP 
STD INDBO 
STD INDBR 
STD INDBS 
STD INDBT 
STD INDBU 
STD INDBV 
STD INDBW 
STD INDEA 
STD INDEA 
STD INDEB 
STD INDEC 
STD INDED 
STD INDEE 
STD INDEF 



7 '///■> 7'A‘f->r. 

!r rUf. I'l-iC 
//<’<•>/*( ffi/j 



TO pyVC-C: HiO, 

f 4 pf: 

.4 T H/o PT\ 



STO INDE6 
STD INDEH 
STD INDEI 
STD INDEJ 
STD INDEK 
STD INDEL 
STD INDEM 
CLA HANDL+2 
COM 

STD INDCA 
CLA HANDL+3 
COM 

STD INDDA 
STD INDDB 
STD INDDC 
STD INDDD 
CLA NIX 
COM 

STD INDFA 
EFM 

REM CONVERSION OF UNITS 

LDO INPUT 

FMP CONST+5 

STO INPUT 

LDO INPUT+1 

FMP CONST+5 

STO INPUT+1 

LDO INPUT+2 

FMP CONST+5 

STO INPUT+2 

LDO INPUT+3 

FMP CONST+5 

STO INPUT+3 

LDO INPUT+A 

FMP CONST+5 

STO INPUT+A 

LDO INPUT+12 

FMP CONST+5 

STO INPUT+12 

LDO INPUT+13 

FMP CONST+5 

STO INPUT+13 

LDO INPUT+IA 

FMP CONST+5 

STO INPUT+IA 

LDO INPUT+12 

FMP CONST+29 

STO INPUT+12 

LDO INPUT+13 

FMP CONST+29 

STO INPUT+13 

REM CALCULATION OF CONSTANT GEOMETRICAL PARAMETERS 

CLA INPUT+1 

FDP CONST+2 

STO ASIDE+5 

CLA ASIDE+5 




I 




FSB INPUT+2 
STO ASIDE+9 
FAD ASIDE+5 
FDP CONST+2 
STQ ASIDE+7 
CLA INPUT+12 
STO REMEM+5 
CLA CONST+1 
STO TEMP+18 

REM CALCULATION OF INITIAL LONGITUDINAL SPACING 

LDQ INPUT+2 

FMP CONST+A 

FAD INPUT 

FAD INPUT+1 

FDP INPUT+8 

STO ASIDE+8 

FMP CONST+2 

STO ASIDE+1 

STO ASIDE+2 

CLA INPUT+8 

STO ASIDE 

REM CALCULATION OF ESTIMATED MOMENTS OF INERTIA 

LDQ INPUT+12 

FMP INPUT 

FDP CONST+6 

STO REMEM 

LDQ INPUT+13 

FMP INPUT 

FDP CONST+6 

STQ REMEM+1 

REM FIRST ESTIMATE OF LO CATIO N OF NEUTRAL AXES 
CLA INPUT 
FDP CONST+2 
STO REMEM+2 

STO REMEM+3 _ „ 

REM CALCULATION OF EFFECT WE WIDTH ( KARMAN SECHLERI 

CLA INPUT+18 

FDP INPUT+17 

STQ TEMP 

CLA TEMP 

TSX SQRT»A 

HTR 

STO TEMP 
LDQ TEMP 
FMP CONST+7 
STO ASIDE+10 

REM CALCULATIONS OF PARAMETERS OF LONGITUDINAL SPACING 
INSAA LDQ ASIDE+2 
FMP ASIDE+2 
STO ASIDE+3 
FDP CONST+5 
FMP ASIDE+2 
STO ASIDE+A 
CLA ASIDE+2 
FDP CONST+2 
STO ASIDE+8 



REM EFFECTIVE BREAD.TH_I.SCHAD.E.,SNAME..1RANS. ,11-51 ) . 

LDQ ASIDE+2 
STO ASIDE+11 
FMP CONST+8 
LDQ INPUT+5 
TLO INSAB 
. . TRA INSAC 
INSAB LDQ ASIDE+2 
FMP CONST+9 
STO TEMP 
LDQ INPUT+5 
FMP CONST+lO 
FAD TEMP 
STO TEMP 
LDQ INPUT+5 
FMP INPUT+5 
FDP ASIDE+2 
FMP CONST+11 
_FAD TEMP 
STO ASIDE+li 

INSAC LXD NIX»1 _ 

REM NUMBERING OF LOCATIONS* KEEL IS LOCATION ZERO 
CLA NIX 

iNSAD_STd_LOC»l 

FAD_CONST+i 

INDAA TXI lNSAE*"i 
INSAE CAS ASIDE 
~ TRA INSAF 
NOP_ 

TRA”INSA0 
INSAF CLA CONST 

REM” COORD 1 N ATES~0F~TW0 LOCAnC)N5~5EYONDnrHE TAST TERTI NENT 

REM Location are set 'at'MINUS'one'to facilitate programming 

STO LOC+l*l 
STO LOC+2*l_ 

STO LOC+26*! 

ST0_L0C+27*1_ _ 

REM CALCULAtrON OF LOCAflON COORDlN'AfES 
REM coordinates ALONG BOTTOM 
LXD NIX*1 
CLA NIX 

INSAG" STb'LOC+2*r 
_FA^ ASIDE+8__ 

StZ L'OC+l*l 
STZ LOC+17*r 
TNDA'B'txT INSAH.l 
I^NSAH CAs_ASIDE+^ 

TRA INSAr” 

'Nop" _ 

tRA“TNSAG 

REM coordinates *AT' TURN OF BILGE 
INSAI FSB ASIDE+9 
■ ■ FDP INPUT+2 
STO TEMP 
CLA ASlDE+8 
FDP lNPUT+2 



FSB lNPUT+2 
STO ASIDE+9 
FAD ASIDE+5 
FDP CONST+2 
STO ASlDE+7 
CLA INPUT+12 
STO REMEM+5 
CLA CONST+r 
STO TEMP+18 

REM calculation OF INITIAL LONGITUDINAL SPACING 

LDO INPUT+2 

FMP CONST+A 

f AD_ INPUT 

FAD INPUT + r 

FDP INPUT+8 

STO ASIDE+8 

FMP CONST+2 

STO ASlDE+1 



STO ASIDE+2 

CLA 'InpUt+8 



STO ASIDE 

REM CALCULATION OF ESTIMATED MOMENTS OF INERTIA 

LDO INPUT+12 

FMP INPUT 

FDP CONST+6 

STO 'remem' 

LDO INPUT+13 
FMP INPUT 
FDP CONST+6 
STO REMEM+1 

REM FIRST EST I MATE_ OFL LOCATION OF_NEUTRAL AXES 
"CLA INPUT 
FDP CONST+2 
STO REMEM+2 
STO REMEM+3 

REM CALCULATION OF EFFECTIVE WIDTH (KARMAN SECHLER) 

CLA INPUT+18 
FDP INPUT+17 
STO TEMP 
CLA TEMP 
TSX SORTiA 
HTR 

STO TEMP 
LDO TEMP 
FMP CONST+7 
STO ASIDE+10 

REM CALCULATIONS OF PARAMETERS OF LONGITUDINAL SPACING 
INSAA LDO ASIDE+2 
FMP ASIDE+2 
STO ASlDE+3 
FDP CONST+5 
FMP ASIDE+2 
STO ASIDE+A 
CLA ASIDE+2 

FDP CONST+2 , ^ 

STO ASIDE+8 f f ' 





FMP 


CONST+2 






STO 


LOC+17»l 






CLA 


INPUT 






STO 


LOC+l»l 




INDAE 


TXI 


INSANtl 






REM 


BEGINNING OF GENERAL PROGRAM 






REM 


CALCULATION OF MAX HYDROSTATIC HEAD EACH LOCAT 


INSAO 


LXf> 


NIX»1 




INSAP 


CLA 


LOC+l»l 






TMI 


INSAS 






CLA 


INPUT+4 






FSB 


LOC+l»l 






STO 


LOC+16»l 






CLA 


INPUT+3 






FSB 


LOC+l»l 






STO 


TEMP+1 






LDO 


TEMP+1 






FMP 


CONST+13 






STO 


TEMP+1 






LDO 


LOC+2»i 






FMP 


CONST+14 






FAD 


TEMP+1 






STO 


TEMP+1 






CLA 


INPUT + l*! 






CAS 


LOC+16*! 






TRA 


INSAO 






NOP 








CLA 


LOC+ 16 #r 




INSAO 


STO 


LOC+16 »1 






CAS 


TEMP+1 






TRA 


JJSAR 






NOP 








CLA 


TEMP+1 




INSAR 


STO 


LOC+15f 1 




INDAF 


TXI 


INSAP»1 






REM 


CALCULATION'OF'SHrP (PRIMARY) BENDING 


STRESSES 


INSAS 


LXD 


NIX»1 






CLA 


INPUT+12 






FDP 


remem 






STO 


REMEM+10 






CLA 


INPUT+13 






FDP 


REMEM+1 






STO 


REMEM+11 






REM 


STRESSES DUE' TO POSITIVE 5HtP''BENDlNG 


MOMENT 


INSAT 


CLA 


REMEM+2 






FSB 


LOC+l»l 






TMI 


INSAU 






STO 


TEMP 






LDO 


TEMP 






FMP' 


REMEM+lO 






STO 


LOC+8»l 




INDA6 


TXI 


INSAT»1 




INSAU 


CLA 


LOC+l»l 






TMI 


INSAV 






FSB 


REMEM+2 






'STO 


TEMP 







LDO 


TEMP 






FMP 


REMEM+10 






STO 


LOC+9*l 




INDAH 


TXI 


iNSAUtl 






REM 


STRESSES DUE 


TO NEGATIVE'SHJP BENDING MOMENT 


INSAV 


LXD 


NIX»X 




INSAW 


CLA 


REMEM+3 






"FSB 


"L"bc+I7"r 






TMI 


INSAX 






STO 


TEMP 






LDO 


TEMP 






FMP 


REMEM+11 






STO 


LOC+9»l 




TNOAI 


Txr 


'INSAW*!' 




IN SAX 


CLA 


LOC+1.1 






TMI 


INSAY 






FSB 


REMEM+3' 






STO 


TEMP 






LDO 


TEMP 






FMP 


REMEM+11 






STO 


LOC+8»l 




INDAJ 


TXI 


INSAX»1 






REM 


SELECTION OF 


HULL PLATING BRYAN BUCKLING CRITER 


INSAY 


LXD 


NIX»3 




INSAZ 


CLA 


LOC+26»l 






TMI 


INSBC 






CLA 


L0C+34|1 






TSX 


SQRT*A 






HTR 








FDP 


CONST+IS 






FMP 


ASIDE+2 






STO 


TEMP 






REM 


SELECTION OF 


plating Thickness from std stock 


INSBA 


CLA 


PLATE»2 






TMI 


INDDC+2 






CLA 


TEMP 






CAS 


PLATE+1>2 




INDDA 


TXI 


INSBA»2 






REM 


tertiary stress calculation 




NOP 






INSBB 


LDO 


ASIDE+3 






FMP 


LOC+AO*! 






FDP 


PLATE+2,2 






FMP 


CONST+16 






STO 


LOC+35.1 






STO 


LOC+05*1 






REM 


STRESS SCHEDULE BETWEEN LONGITUDINALS 




FAD 


LOC+33.1 






FAD 


INPUT+19 






CAS 


INPUT+16 




INDDB 


TXI 


INSBB, 2 






NOP 








CLA 


LOC+34,1 






FAD 


LOC+35,1 






FSB 


INPUT+19 






CAS 


INPUT+17 





INDDC 



INDBA 

INSBC 



INDBB 

INSBD 



INSBF 



INSB6 

INDBC 

INSBH 

INSBI 



TXI INSBB»2 
NOP 

CLA PLATE»2 
STO LOC+20*1 
CLA PLATE+1»2 
STO LOC+29»l 
STO L0C+79,i 
CLA PLATE+2»2 
STO L0C+30»1 
LXD NIX»2 
TXI INSAZtl 
LXD NIX»3 

REM PLATE THICKNESSES TO _BE ASSOCIATED WITH SCANTLINGS 

LDO LOC+29 

STQ LOC+7 

FMP ASIDE+10 

CAS ASIDE+2 

CLA ASIDE+2 

NOP 

STO LOC+IA 
TXI INSBD»1 
CLA LOC+l»l 
TMI INSBF 
CLA LOC-21»l 
FAD LOC+29, 1 
FDP CONST+2 
STO LOC+7, 1 
STQ LOC+57,1 
FMP ASIDE+10 
CAS ASIDE+2 
CLA ASIDE+2 
NOP 

STO LOC+14,1 
TRA INDBB 
LXD NIX,1 

REM CALCULATION OF SECONDARY BENDING MOMENTS 
LDO INPUT+5 
FMP INPUT+5' 

FDP CONST+19 
FMP ASIDE+2 
STO TEMP 
CLA LOC+1,1 
TMI INSBH 
LDO LOC+15,1 
FMP TEMP 
STO LOC+10,i 
TXI INSBG,1 
LXD NIX,1 

REM REQUIRED SECTION MODULI 

CLA LOC+1,1- 

TMI INSBN 

CLA INPUT+17 

FSB LOC+9,1 

FDP CONST+26 

STQ TEMP 

CLA INPUT+16 



1^0 



FSB 


LOC+8»l 










FSB 


LOC+35.1 










CAS 


TEMP 










CLA 


TEMP 










NOP 












STO 


temp 










CLA 


LOC+10.1 










FOP 


TEMP 










STQ 


LOC+12,1 










CLA 


INPUT+16 










FSB 


LOC+8.1 










FDP 


CONST+26 










STQ 


TEMP 










CLA 


INPUT+17 










FSB 


LOC+9.1 










CAS 


TEMP 










CLA 


TEMP 










NOP 












STO 


TEMP 










CLA 


LOC+10»1 










FDP 


TEMP 










STO 


LOC+13»l 










REM 


SPAN/RADIUS 


OF 


GYRAT I ON . 


BU&RLPS: CRITERION 


CLA 


LOC+l»l 










FDP 


INPUT 










FMP 


CONST+25 










FAD 


CONST+17 










STO 


LOC+6.1 










REM 


SPAN/RADIUS 


_6f; 


gyraTionT 


MONCRIEFF 


FACTOR 1 


CLA 


LOC+9,1 










FSB 


INPUT+19 










TMI 


INDBD 










LDQ 


LOC+9.1 










FMP 


CONST+22 










FAD 


INPUT+15 










TMI 


INDBD 










FDP 


LOC+9»l 










STO 


TEMP 










LDO 


LOC+9.1 










FMP 


CONST+23 










FAD 


INPUT+15 










STO 


TEMP+1 










CLA 


TEMP 










FDP 


TEMP+i 










STQ 


TEMP 










CLA 


TEMP 










TSX 


SQRT»4 










TRA 


INDBD 










STO 


TEMP 










LDQ 


TEMP 










FMP 


CONST+2A 










REM 


COMPARISON 


OF 


RADII OF 


'gyrations 


THE LESS 


CAS 


LOC+6.1 










CLA 


LOC+6.1 










NOP 












NSBM STO 


LOC+6.1 











OF SAFETY 



1.0 



VALUE IS USED 



INDBD TXI INSBI»J: 

REM PLATE PARAMETERS FOR SELECTION OF SCANTLINGS 
INSBN LXD NIX»3 
INSBO CLA LOC+1.1 
TMI INSBO 
LXD NIX»2 
.CLA.LOC+7f 1 
FDP CONST+2 
STQ TEMP+6 
LDO LOC+7»l 
FMP ASIDE+11 
STO TEMP 
LDO TEMP 
‘FMP LOC+7»l” 

FDP CONST+5 
FMP LOC+7»l 
STO TEMP+1 
LDO LOC+lA.l 
FMP LOC+7»l 
STO TEMP+2 
FDP CONST+5 
FMP LOC+14fl 
STO TEMP+7 
LDO TEMP+7 
FMP LOC+14 »l 
“STO" TEMP+7' 

CLA TEMP+1 
FDP ASIDE+li 
J-MP_‘L0C+14,r 
STO TEMP +3" " 

REM‘ CONVERSION OF B'EAm'THARACTER'ISTI CS TO' BEAM' PLATE 

■REM H:T?AR ACTE R'TsTTCST'l^RETrrT^'Tl 
REM calculation OF EFFECTIVE AREAS 
INSBP CLA SCANT+3*2 
TMI lNDCA+10 
FAD TEMP 
STO TEMP+4 
CLA SCANT+3»2‘ 

FAD TEMP+2 
STO TEMP+5 

REM CALCULATION OF EFFECT IVE I' (VV) 

LDO ASlDE+4 
FMP LOC+7*l 
FAD SCANT+6i2 
STO TEMP+8 
CLA TEMP+7 
FAD SCANT+6*2 
STO TEMP+9 

REM CALCULATlO OF NEUTRAL AXES 
''CLA'SCANT+9f2" 

FSB SCANT+4»2 
FAD TEMP+6 
STO TEMP+20 
FDP IEMP+4 
FMP TEMP 
FAD SCANT+4,2‘ 



STO TEMP+lO 
CLA TEMP+20' 

FDP TEMP+5 
FMP TEMP+2 
FAD SCANT+4»2 
STO TEMP+11 

REM CALCULATION OF EFFECTIVE MOMENTS OF INERTIA 

FSB SCANT+4»2 

STO TEMP+15 

LDQ TEMP+15 

FMP TEMP+15 

STO TEMP+15 

LDO TEMP+15 

FMP SCANT+572‘ 

FAD SCANT+5»2 
STO TEMP+15 

CL'A TEMP+10 

FSB SCANT+4'»2 
STOTEMP+14 
LDO TEMP + 14' 

FMP TEMP+IA 
STO TEMP + 14- 

LDQ TEMP+14 

FMP SCANT+3»2 
FAD SCANT+5»2 
STO TEMP+1'4 
CLA SCANT+9»‘2‘ 

FAD'LOC+7»i 
STO TEMP+16 
FSB TEMP+IO' 

STO_TEMP+12 
CLA TEMP+16 
FSB_ TEMP + 11 
STO TEMP+ 1'3 
FSB TEMP+6 
STO TEMP+16 
LDQ_TEMP+16 
FMP TEMP+16 
STO TEMP+16 
LDQ TEMP+16 
FMP TEMP+2 
FAD TEMP+3 
FAD TEMP+15 
STO TEMP+15 
CLA TEMP+12 
FSB TEMP+6 
STO TEMP+16 
LDO TEMP+16 
FMP TEMP+16. 

STO TEMP+16 
LDQ TEMP+16 
FMP TEMP 
FAD TEMP+1 
FAD TEMP+14 
STO TEMP+14^ 

REM CALCULATION OF RADIUS OF GYRATION 



U3 



CLA TEMP+19 
FDP TEMP+5 
STO TEMP+16 
CLA TEMP+16 
TSX SORTfA 
HTR 

STO TEMP+16. 

REM CALCULATION OF SPAN/RADIUS OF GYRATION 

CLA INPUT+5 

FDP TEMP+16 

STO TEMP+16 

CLA TEMP+16 

REM TEST OF.. SELECTEO„SCANTLINO 

CAS LOC+6fl 

INDCA TXI INSBP»2 
NOP 

CLA TEMP+14 
FDP TEMP+12 
.CLA LOC+12»l 
TLO INDCA 
CLA TEMP+14 
FDP TEMP+10 
CLA LOC+13*! 

TLO INDCA 

_REM_ STORING DESCRIPTION AND “PROPERT lES" OF SELECEED SCANTLING" 
CLA SCANT»2 

STO LOC+3»l 
CLA SCANT+1*2 
STO L0C+4»1 
CLA SCANT+2»2 
STO_LOC+5»l_ 

LDO LOC+7»l 
FMP ASIDE+2 
FAD SCANT+3»2 
STO LOC+ll»l 
CLA TEMP+5 
STO L0C+20»1 
CLA TEMP + 14'' 

STO LOC+21fl 
CLA TEMP+15 
STO LOC+22»l 
CLA TEMP+0 
STO_LOC+23»l 
CLA TEMP+9'~ 

STO L0C+24*1 
INDBE TXI INSBOfl 

REM LOCATION OF NEUTRAL' AXES T ACCURACY TO HALF SCANT SPACE 
REM NEUTRAL AXIS FOR"sHlP"SAGGING 
INS BQ LXD NIX»3 
STZ 'TEMP 
6TZ TEMP+1 
STZ TEMP+2 
STZ TEMP+3 
INSBR CLA LOC+l#l 
TMI_ INSBT 
CLA 'REMEM+2 



FSB LOC+lil 
TMI INSBS 
CLA TEMP 
FAD LOC+ll»l 
STO TEMP 
LDQ LOC+11,1 
Vmp L0C+1»1 
FAD TEmP+2 
STO TEMP+2 
INDBF TXI 1NSBR»1 
INSBS CLA TEMP 

FAD L0C+20»1 
STO TEMP 
LDO' LOC+20»1" 

FMP LOC+l*l 
FAD TEMP+2 
STO TEMP+2 ■ 

INDBG TXI INSBR»r 
INSBT LXD NIX»1 

CLA TEMP+2 ■ 

FDP TEMP 
CLA REMEM+2 
STO REMEM+6 
STO REMEM+2 

REM NEUTRAL AXIS FOR SHIP HOGGING 
INSBY CLA LOC+l»l 
TMI INSCA 
CLA REMEM+3 
FSB LOC+l»l 
TMI INSBZ 
CLA TEMP+1 
FAD LOC+20»1 
STO TEMP+1 
LDQ L0C+20»1 
FMP LOC+l»l 
FAD TEMP+3 
STO TEMP+3 
INDBH TXI INSBY*1 
INSBZ CLA TEMP+1 

FAD LOC+llil 
STO TEMP+1 
LDQ LDC+11»1 
FMP LOC+l»l 
FAD TEMP+3 
STO TEMP+3 
INDBW TXI INSBY»1 
INSCA CLA TEMP+3 
FDP TEMP+1 
CLA REMEM+3 
STO REMEM+7 
STQ REMEM+3 
LXD NIX*1 
STZ TEMP+2 
STZ TEMP+3 

REM MOM OF INERTIA FOR POSITIVE SHIP BENDING MOMENT 

REM EFFECTIVE AREAS TIMES DISTANCES TO NEUTRAL AXIS SQUARED 






INSCF CLA L0C+1»1 
TMI INSCH 
CLA REMEM+2 
FSB L0C+1»1 
TMI INSCG 
STO TEMP 
LDO TEMP 
FMP TEMP 
STO temp 
LDQ TEMP 
FMP LOC+ll»l 
FAD TEMP+2 
STO TEMP+2 
INDBI TXI INSCFtl 
INSCG CLA LOC+1.1 
FSB REMEM+2 
STO TEMP 
LDO TEMP 
FMP TEMP 
STO TEMP 
LDQ temp 
FMP LOC+20»1 
FAD TEMP+2 
STO TEMP+2 
INDBJ TXI INSCFtl 

■ R EM MOM EN T S~OF ’1 NE R T T A'TOffG'n’HE^CrTTOfnOFTIUtir" 

INSCH LXD NIXtl 
INSCI LDO ASIDE+7 
CLA LOC+2»l 
"TLQ INSCJ, 

CLA LOC+21fl 
'fad TEMP+2 
STO TEMP+2 
INDBK TXI INSCI ».l 

REM MOMENTS OF I NERT I A” ALONG 5 IDE OF HULL BELOW NEUTRAL AXIS 
INSCJ CLA LOC+lfl 
CAS INPUT 
NOP 

TRA INSCL 
CLA REMEM+2 
FSB LOC+l»l 
TMI INSCK 
CLA LOC+23tl 
FAD' TEMP+2” 

STO TEMP+2 
INDBL TXI INSCJtl 

REM MOMENTS OF INERTIA ALONG SIDE OF HULL ABOVE NEUTRAL AXIS 
INSCK CLA LOC+24tl 
FAD TEMP+2 
' STO TEMP+2 
INDBM TXI INSCJ»1 

REM MOMENTS OF INERTIA ALONG THE DECK 
INSCL CLA LOC+l#l 
TMI INSCM 
_CLA LOC+22,1 
FAD TEMP+2 



STO TEMP+2 
INDBN TXI INSCL.l 
INSCM LXD NIX»1 

REM MOMENT OF INERTIA FOR NEGATIVE BENDING MOMENT 
REM EFFECTIVE AREAS TIMES DISTANCES TO NEUTRAL AXIS SQUARED 
INSCN CLA LOC+l»l 
TMI INSCP 
CLA REMEM+3 
FSB LOC+l»l 
TMI INSCO 
STO TEMP+1 
LDQ TEMP+1 
FMP TEMP+1 
STO TEMP+1 
LDQ TEMP+1 
FMP LOC+20»1 
FAD TEMP+3 
STO TEMP+3 
INDBO TXI INSCN»1 
INSCO CLA LOC+l»l 
FSB REMEM+3 
STO TEMP+1 
LDQ TEMP+1 
FMP TEMP+1 
STO TEMP+1 
LDQ TEMP+1 
FMP LOC+11,1 
FAD TEMP+3 
STO TEMP+3 
INDBP TXI INSCN»1 

REM MOMENTS OF INERT I A_ALONG _THE _BOTTOM OF HULL 
INSCP LXD NIX»1 
INSCQ LDQ ASIDE+7 
CLA LOC+2»l 
TLQ INSCR 
CLA LOC+22»l 
FAD TEMP+3 
STO TEMP+3 

INDBQ TXI INSCQtl __ _ 

REM MOMENTS OF INERTIA ALONG SIDE OF HULL BELOW NEUTRAL AXIS 
INSCR CLA LOC+l»l 
CAS INPUT 
NOP 

TRA INSCT 
CLA REMEM+3 
FSB LOC+l»l 
TMI INSCS 
CLA LOC+24,1 
FAD TEMP+3 
STO TEMP+3 
INDBR TXI INSCR»1 

REM MOMENTS OF INERTIA ALONG SIDE OF HULL ABOVE NEUTRAL AXIS 
INSCS CLA LOC+23»l 
FAD TEMP+3 
STO TEMP+3 
INDBS TXI INSCR»1 



INSCT 

INDBT 

INSCU 



BACK 



INSDC 

INSDD 



REM MOMENTS OF INERTIA ALONG THE DECK 

CLA LOC+l»l 

TMI INSCU 

CLA LOC+21»l 

FAD TEMP+3 

STO TEMP+3 

TXI INSCTtl 

LXD NIX»1 

TSX M»4 

P2E REMEM»0»REMEM+1 
TSX 0.4 

PZE REMEM+2.0.REMEM+3 

REM ACCURACY TEST FOR MOMENTS OF INERTIA 

CLA TEMP+3 

FSB REMEM+1 

FDP REMEM+1 

STO TEMP 

CLA TEMP 

SSP 

CAS INPUT+11 
NOP 

TRA BACK 
CLA TEMP+2 
FSB REMEM 
FDP REMEM 
STO TEMP 
CLA TEMP 
SSP 

CAS INPUT+11 
NOP 

TRA BACK 
TRA INSCV 

REM ACCURA Y CRITERIA FOR SHIP MOMENTS OF INERTIA HAS FAILED. 

REM THE FOLLOWING INSTRUCTIONS MODIFY SHIPS MOMENT OF INERTIA 

CLA REMEM+6 

FAD REMEM+2 

FDP CONST+2 

STO REMEM+2 

CLA REMEM+7 

FAD REMEM+3 

FDP CONST+2 

STO REMEM+3 

CLA REMEM 

CAS TEMP+2 

TRA INSDC 

NOP 

LDO CONST+28 
FMP REMEM 
STO REMEM 
TRA INSDD 
LDO CONST+27 
FMP REMEM 
STO REMEM 
CLA REMEM+1 
CAS TEMP+3 

TRA INSDE / <2-0 



INSDE 

INSCV 



INSBX 

INDBU 

INSCW 



INSDA 



NOP 

LDQ CONST+28 
FMP REMEM+1 
STO REMEM+1 
TRA INSAS 
LDO CONST+27 
FMP REMEM+1 
STO REMEM+1 
TRA INSAS 

REM ACCURACY TESTS FOR LOCATIONS OF NEUTRAL AXES 

CLA TEMP+3 

STO REMEM+1 

CLA TEMP+2 

STO REMEM 

CLA REMEM+6 

FSB REMEM+2 

SSP 

CAS ASlDE+8 
NOP 

TRA INSAS 
CLA REMEM+7 
FSB REMEM+3 
SSP 

CAS ASIDE+8 
NOP 

TRA INSAS 

REM CALCULATION OF TOTAL CROSS SECTION AREA 

STZ TEMP 

CLA LOC+1.1 

TMI INSCW 

CLA LOC+11*! 

FAD- temp 
STO TEMP 
TXI INSBXfl 

REM STORE AREA* NR SCANTLINGS AND FRAME SPACING 

CLA TEMP 

STO REMEM+12 

CLA ASIDE 

STO REMEM+13 

CLA INPUT+5 

STO REMEM+IA 

TSX L»A 

PZE REMEM+12*0»REMEM+14 _ _ 

REM PRINT OUT ROUTINE TO_PRINT_OUT SCANtLING AND PLATE INFO 

CLA REMEM 

FDP CONST+30 

STQ REMEM 

CLA REMEM+1 

FDP CONST+30 

STQ REMEM+1 

LXD NIX*1 

TSX M»4 

PZE REMEM*0*REMEM+1 
TSX Q»4 

PZE REMEM+2»0*REMEM+3 
CLA LOC+l*l 

i7 

C/'r/. Ca /xf 





ACL 


ONE 1 




SLW 


ONE 1 




CAL 


CRANK 1 




ACL 


TWO 




SLW 


TWO 1 




CAL 


CRANK 1 




ACL 


THREE , 




SLW 


THREE 1 




CAL 


CRANK 1 




ACL 


POUR I 




SLW 


FOUR 




TSX 


N,4 1 


ONE 


PZE 


L0C-JlP,0,L0C-*fjf 




TSX 


WOT, 4 1 


TWO 


PZE 


L0C-‘#7,0,L0C-V5 




TSX 


0,4 1 


THREE 


PZE 


L0C-44,0,L0C-‘^4 




TSX 


P,4 1 


FOUR 


PZE 


LOc-:is’,o,Loc-aA 


INDBV 


TXI 


INSDA,1 1 




REM 


1 

FIRST AND , 
1 


1 

SECOND 

1 


OUT 


STZ 


TEMP -«r 




STZ 


TEMP^-l 




STZ 


TEMP«f2 




STZ 


TEMPOS 




LXD 


NIX,1 


INSEA 


CLA 


LOCrl,l<r-i 






TMI 


INSEB 


1 




CLA 


LOCi-11,1 


1 

1 




FAD 


TEMP 


1 

1 




STO 


TEMP 


1 




LDQ 


LOC 1-11,1 


1 

1 




FMP 


L0C«»-1,1 


1 

1 




FAD 


TEMPi-1 


1 




STO 


TEMP-t-1 


1 

1 




LDQ 


LOCfl,l 


1 

I 




FMP 


LOC 1-1,1 


1 

1 






I3l 





MOMENTS OF AREAS 

S£T TO Z^7?0 
S6.T To Z.€'Rq 
T ey To 'Z& 7^0 
S£T TO 

i?sser (N^cy. x 
z 

iP 2 = -/ LGrAVe 

HA 

TZ A 

Ai 

z 

HlAz. 

^Az. 

z 

z 



LOCP 
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l3o A 1/ Jo 



STO TEMP T 4 
LDQ LOG -r 11,1 | 

PMP TEMP 1-4 I 

PAD TEMPr2 I 

I 

STO TEMP+2 I 

INDEA TXI INSEA, 1 1 I 

INSEB CLA TEMP«-1« 

PDP TEMP 
STQ TEMP 1-1 
PMP TEMP 1-1 
STO TEMP 1-4 
LDQ TEMP 
PMP TEMP *4 
CHS 

PAD TEMP +2 
STO TEK!Pi-2 
LXD NIX,1 

INSEC CLA LOCi-1,1 

TMI INSED 1 

PSB TEMPt'l j 

CHS I 

STO TEMPrS | 

LDQ LOCi-11,1 I 

PMP TEMP 1-5 I 

PAD TEMP 1-3 
STO TEMP+3 I 




X. 

z. 






2-/4 



r Az 
zT A 

^c. 

Zc. 

J. 

Zc 

ZA 



X = 

j. 

z 

IF Z = -/j I i/<f Loo 7^ 



Zc 



2^-2 

a1 

Zc-Z- 

ZAlC^-c-z) 



in'* / \ 

rt - A 



STO LOC 1-20,1 
INDEB TXI INSEC, 1- 
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// X ! 



INSED LXD 

INSEE CLA 
TMI 
CIA 
TSX 
STO 
CLA 
TSX 
STO 

INDEC TXI 
REM 
LXD 
CLA 
TMI 
LDQ 
PMP 
STO 
LDQ 
PMP 
STO 
LDQ 
PMP 
STO 
LDQ 
PMP 
PSB 
STO 

INDPA TXI 



NIX,1^ — 




A"6=.V£'- 7- 



LOC*l,l-<— -| 
INDEC ■ - 
LOCi-17,1 
SIN, 4 

Locale, 1 
LOCi-17,1 
COS, 4 
L0C«-19,1 
INSEE, 1 



1 



IF -/j LFA\/<S /.OOr’ 

Q 

Sin (9 
© 

CCS <9 



HYDROSTATIC AND INTERNAL LOAD COMPONENTS 



NIX, 3 






L0C4-1,1^ 



INDED<-1 

LOC+16,1 

ASIDE<-2 

L0C^16,1 

LOC+16,1 

INPUT^S 

L0Crl6,l 

LOCi-16,1 

Locals, 1 

LOC 1-15,1 
LOC 1-16,1 
LOC 1-19,1 
LOAD, 2 
LOC 1-16,1 
INDED,2 



<3r, 



y 

(3.T 



/3i' 



z. 

/ F Z - - LOOP 

l~l lO 

h 

/7w /p 
(j H 

H - Hoi 

H 

S I >1 & 

/-V Sy'i O 

H 

cos <9 

C-l-oJ 

H cos <9 - ojJ 
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Hi C05®; -(C+U>K - jtn ®i 

14 Sl►^ ©c + 5c co:j 6- 

\.»K 

= P„ cox + Glo 3^ ©,( - C03 ©^ ^ hi -t- S.V ^ ■^c 

i'^0 l-'d 

UK 

GIk= -P. Si*% COJ <9,< 4- 5t‘>^ ©K ^ Coj 2^ 

\” K ^ 

|V1 1^ = 1'^ 0 - p^ Z.|<. ■♦■ Q-o Vk ■•■ ^ h;. (2^-Z.cj ^ V'c ^ '^k~'>'l) 

I— O : - /% 



/^v 
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t 


1 fSJ 




INDED TXI 


INDEC<-2,1- 


LL 


1 

1 




LXD 


NIX,3 <--- 




] 


)tJT>!ceS / 


STZ 


TEMPt4 






rtfT ~r6 'z.S'Ro 


STZ 


TEMPt-5 






scr T6 0 


STZ 


TEMP f 6 






SET TO ZiS^C 


STZ 


TEMP«-7 






SET TO 


REM 


SUMMATION 


OF 


EXTERNAL LOADS 


INSEP CLA 


LOCi-1,1-^ 






z 


TMI 


INDEEtI 


1 




IF Z » LOO 


CLA 


LOC+15,1 


1 




H s / /o & 


PAD 


TEMP *4 


1 




e /Vr/'/i & 


STO 


TEMPi-4 


1 

1 




i & 


STO 


L0Ct12,1 


1 

1 




i H s t>i & 


CLA 


L0C*16,1 


1 




H CdS ^ • Cc 


PAD 


TEMPOS 


1 




^ H cos ^ - Cc ^ lOjJ 


STO 


TEMPOS 


1 

1 




'ECH c-ose - 


STO 


L0Crl3,l 


1 

1 




€LHcos q - (.C-Kjj)) 


INDEE TXI 


INSEP, 1 


1 






REM 


SHEAR FORCE CALCULATIONS 
1 




LXD 


NIX,l-s 






F^SET j. 


CLA 


TEMP ♦ 5 






ZLCH C03& - (C-A Ojj] ~ 


PDF 


TEMP«*2 






X 


PMP 


ASIDEf2 






b 


STO 


REMEM+4 






Vb/x 


CLA 


LOCrl,l-i^ 






z 


TMI 


INDEP+1 


1 




IF i LEAUe UOC : 


LDQ 


REMEM <-4 


1 






PMP 


L0C*20,1 


1 








‘36 


i/Ji 
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I3S I ‘ 3^ 
STO LOC+20,1 

LDQ LOG 1-19,1 

PMP LOG 1-20,1 

STO LOG 1-2 1,1 



< _ h}^Q-n 

'Jn - 'X 



<r tf c! (9., 



CO? (9„ 

REM TOTAL EXTERNAL FORGE GOMPONENTS 

<»r s,^ c 0$ ©rt 
^ cos <s>^ 
^ H s>^ & 



PAD TEMP 1-7 
STO TEMP 1-7 
PAD L0Grl2,l 
STO LOG 1-12,1 
GLA LOG 1-21,1 
PAD LOG 1-15,1 
STO LOG 1-15,1 
LDQ LOG 1-18,1 
PMP LOG 1-20,1 
STO LOG 1-20,1 
PAD TEMP 1-6 
STO TEMP 1-6 
GHS 

PAD LOG 1-13,1 
STO LOG 1-13,1 
GLA LOG 1-16,1 
PSB LOG 1-20,1 



si<i (9 +• v5 cos 

C <9 5 <9,-i 

|-< <r»V» (S 

J-l 0 1* <5* O <9^ © 

J / V» © 

<S ^ 

Z Sn ®/7 
JVi ? » « ©„ 

^ r H COS & - (c -f- (tJjJ 

^ C H coj© - “ S 3 /n sj 

H cos O- (csoJj 
S t , ^ 

H cos B - Cc^u)) - ^ 



STO LOG 1-16,1 
INDEP TXI IN DEE 1-6,1^ 

REM TOTAL EXTERNAL MOMENT GOMPONENTS 

LXDNIX,3-^ ^ 'RBSC-r \>j D ices i A k, i) Sl 



INSEG GLA LOGi-1,1- 
TMI INDEGi-3 



/J7 



[f 2 = -/ L£A\/e L OCP 
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13 (. A 



STZ 

STZ 

STZ 

INSEH CLA 
CAS 
NOP 
TRA 
CLA 
PSB 
STO 
LDQ 
PMP 
PAD 
STO 
CLA 
PSB 
STO 
LDQ 
PMP 
PAD 
STO 
STO 

INDEG TXI 
LXD 

INDEH TXI 
LXD 
CLA 
TMI 



L0C^3,1 
L0C«-4,1 
LOC 1-5,1 

LOC , 2 1 

LOC,l 

INDEG 1-1 1 

LOC 1-1,1 I 

LOCi-1,2 I 

TEMP I 

LOC 1-15, 2 I 

TEMP I 

LOCi-5,1 I 

LOC ^5 , 1 
L0Cr2,l 

I 

LOCi-2,2 

TEMP I 

L0Ct16,1 

TEMP 

LOCr5,l 

LOC 1-5,1 

LOC 1-24,1 I 

INSEH, 2 1 I 

NIX,2 ^ 

INSEG,1 

NIX,1-^ 

LOCi-l,l-«— r 



INDEIi-1 



n 



US 



\^I38 



S6T TO 2SRO 
S£-r TO "Z £ R 0 
S£T Td ■Z£/?<3 

C; IaJ/FN 

IF Cj SKiF 

i’c 

f-^ Jlrl & *f JCOS Q 

i- •S*<sfe)(2K -ZjjJ 
(1 

i-Scoj - z)]i 

yi 

H c oy Q - (C +o->) - S3 in & 

Vv - Vi 

^[(.HcofS -(c y- ©XW" yjj . 

imCCn ii'n & i- Se o 3 &)^'Z “ 2 )^ 1 ^ 's. 

^C(H C030- Ccr‘u^)-S3/n ©)(y*/ - y)3 1 

'*~z.C(h 3 ifi ^ca3e)(z^~2j]^ = /Wex 

T?es£T /^l>£y ^ 

ReJ£T ^^JV£)c J, 

z 

IF 'Z.-z-fj JL£y4^e LOOF 
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«• 




ir^'' 

I 



i 



• • 

♦ 












I 





IN DEI 



INSEI 



' ^ / ■( / 

LDQ LOG ^13,1 

PMP LOG ♦•18,1 

STO LOG 1-3,1 

LDQ LOG 1-12,1 

PMP LOG ♦19,1 

GHS 

PAD LOG ♦3,1 
STO L0G^3,1 
STO LOG ♦22,1 
LDQ LOG ♦IS,! 

PMP LOG ♦ 19,1 
STO L0G^4,1 
LDQ LOG ♦12,1 
PMP Locals, 1 
PAD L0G^4,1 
STO L0G^4,1 
STO L0G^23,1 
TXI INDEH^2,lJ 
STZ REMEM^ll^-* 

STZ REMEM^12 
STZ REMEM^IS 
STZ REMEM^14 

LXD NIX, 3 < 1 

REM SIZING WEB DIMENSIONS 
GLA PLATE^1,2<-| 

TMI EXIT, 4 
LDQ PLATE^1,2 
STQ TEMP 



/V6 



li'f 



& -(fi —S a in 

n 5//1 <£* 

St n Q /-/ aoctO - ('ey o >^'- oj 
C H a / »j S c oJ (9’J 
Cos & 



TTffy = cos & ^ s fi & -/-S Cos &J 

- ■J’/'/i ^ 2r/>V C.OS 9 - ( ®C1 



T = 

ECHCOS& - C ct-it))- S Jt‘^ &~J 

COsS 

cos ©iT/yco » a - Cry-coj- Ss/t, aO 
C H & * S coa &y 

df y =- St'n& Q * -Sees 

4 cos o C H o ar e— — ©"^ 



Q. - GI<?a 



S^-r TO 'z.tEzRo 

S€-T ~ro 

TO 

S£T TO Z(si?a 

Res&T ^ 

r 

/F r--/ L<ZA\/£ ?^X>o 

t 

r-Tu 
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^RlTef^iA PoR Co Of Wf'B Pf?/4/^^ 

— I i'^ U) 

iot^„ 4W4 3otu, W^iD 

x>4 c c?t^ \ = 3ot 

A ~ CX“'tw)'t C”® '*’ C^Ay^" ^w}'t'x 

a ^ 

6L= (vta;)^ CDrT+§J ^ 

x.= C0) + r^-.x/y + (w-T^3t^[CT)-hr+:&jV ^ J 

c= ^ 

A 

c ' = (p -4- T -t- - c 



/c3 J 



STO 
LDQ 
PMP 
STO 
PDF 
STQ 
LDQ 
PMP 
STO 
PDF 
STQ 
REM 
INSEJ LDQ 
PMP 
PSB 
STO 
LDQ 
PMP 
STO 
LDQ 
PMP 
PDP 
STQ 
PMP 
PDP 
STQ 
CLA. 



TEMP•^1 


= /.-i^Tto 


PLATEi-1,2 


Tu) 


CONST^l? 


30 


TEMP* 18 


JO*Ttu 


CONST+14 


o.r 


TEMP*19 


60 TuJ 


PLATE*1,2 


Tw 


C0NST*31 


r 


TEMP *2 




CONSTi-14 


00*0 


TEMP *3 


4s fOtui 


CALC OP AREA AND MOM OP 


INERTIA OP WEB 



L0C+7,l-« — 

C0NST4-17 

PUTE^1,2 

TEMP ^4 

TEMP^4 

L0Ct7,l 

TEMPi-5 

TEMPI'S 

L0C*7,1 

CONSTi-2 

TEMP ♦6 

LOG ♦7,1 

C0NST*26 

TEMP 1-7 

TEMP«-2 



r 

tu 

X-ToJ 
V- 'ui 

T 

(X-Tojjt 

a-Tui)r 

T 

a. 

(X-Toj)T 

t 

l.i" 



IHH 

/VC. 



140 



.• * 



I 



Ip ' 






4 *.« = . 




PAD L0C^7,1 

PAD TEMP4-1 

STO TEMP<-4 

LDQ TEMP 

PMP TEMP 1.4 

STO TEMP ♦•4 

PAD TEMP-^5 

STO TEMP 1-5 

CLA TEMP-t-4 

PDP CONST-^2 

PMP TEMP+tf 
FOP TFMP 
STQ TEMP f 4 
clA renP-m 
PAD TEMP •►6 

STO TEMP 1-6 

CLA TEMP 1*4 

PDP CONST+26 

PMP TEMP W ^ p TSiy^'P f 

PAD TEMPr? 

STO TEMP^-V 

CLA TEMPOS 

PSB TEMP 

STO TEMP -►4 

LDQ TEMP •►4 

PMP TEMP<-1 

STO TEMP ♦4 

PAD TEMPOS 

STO TEMP 4-5 

CLA TEMP*1 



■t 

Toi 

to+r+T^J 

(0)+t4-t^;rw 

tw 

1 

Tw 1 ' 

Cx- 

CX-Tu;)1^ 

fO +T + tlf) i 
hi’ 

(vt T^J tw 

w 

"t UJ 

W • u> 

W-Tcj 

^4 

O^-tujjt ^ Coy- t-f ff) tw 

4 - ( x-rw)t + O f- r tu/ +• 

4 ( W - tu;^ T/ 
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FDP CONST <-2 


A 


STQ TEMPI'S 




CIA TEMPOS 




PAD L0C«-7,1 


r 


PAD TEMP 4-2 




STO TEMPOS 


j)-h t- ^ 


LDQ TEMP^4 


(W-tw)t^ 


PMP TEMPOS 
PAD TEMP+6 


J)+- 14 tiy^ . 

Q, s ( f. 4 f "f 


STO TEMPOS 


(W “ ( 04T4 


LDQ TEMP 1-8 


3)■^T+ 


PMP TEMP *8 
STO TEMPOS 




CLA TEMP*1 




PDP C0NST4-5 


/A 


PMP TEMP«-1 




PAD TEMP+-8 
STO TEMPOS 


rj)+T4 

^'f/i 4 . (J)i-t 4 


LDQ TEMP *4 
PMP TEMPOS 
PAD TEMP*7 
STO TEMP't-7 


1 .i- 

+ fJ-f T4- 

XI 4 r C^- r-,)^ 4 - (J>4 t*Tf)Y -h 

i-(w -Tu^J t^r f (j>+ 


CLA TEMP<-6 


6 L 


PDP TEMPI'S 


A 


STQ TEMPOS 


c= 


CLA TEMP 4-2 


D 


PAD TEMP ♦'I 




PAD L0C*7,1 


t 
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FSB TEMP«-8 
STO TEMP«-9 
LDQ TEMPI'S 
FMP TEMPOS 
STO TEMP4-10 
LDQ TEMP *10 
FMP TEMPt-5 
SSM 

FAD TEMP ♦•7 
STO TBMP-k? 

REM CALCULATION OF SECTION 

FDP TEMPOS 

STQ TEMP <► 10 

CLA TEMP<-7 

FDP TEMP4-9 

STQ TE#-*-!! 

REM STRESS SCHEDULES 
CLA LOC 1-22,1 
FDP TEMP* 5 
STQ TEMPtl2 
CLA L0C*24,J. 

FDP TEMP *11 
STQ TEMP *13 
CLA TEMP *13 
PAD TEMP *12 
CAS INPUT*17--^ 

NOP j 

TRA INSEK 1 I 



C 

c' 

c 

c 

c 

/4c^ 

MODULI 

c 

^/c 

/ 

X 

c!' 

P tfj C«iAPlfei3tetj) 

A 

h 

^/c> 
erg- - 

IF 
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CHS 
CAS 
NOP 
TRA 
CLA 
PDP 
STQ 
CLA 
FSB 
CAS 
NOP 
TRA 
CHS 
CAS 
NOP 
TRA 
TRA 
REM 
INSEK CLA 
PAD 
STO 
CAS 
NOP 
TRA 
TRA 
CLA 
PAD 
STO 



/'V.? 



INPUT*16- 



INSEK 



L0C<-24,1 — 
TEMP<-10 
TEMP 4- 13 
TEMP *13 
TEMP *12 
INPUT*16-- 



INSEK 



I A I'-IO 



1 



J 



I 



INPUT*17-- 

INSEK 4 

INSEL ^ 

RESIZING WEB FRAME 

TEMP *2 < 1 

TEMP*1 
TEMP *2 
TEMP *19 , 

'/I' 2 j I 

I ' 

INSEJ - ' ' I 

1 

TEMP *3 • ' I 

TEMP*1 i 

I 

TEMP *3 I 



NG 



/P (y-yp 

lA 

-/c 
^8 

V^iThl cr-yi'., 



COI^I-'Aki: oy- \^tTH r..,p 

tp" ~ ^ ^ ^/p 

IP ^tP’PSS sc C£'5 APS 
SA-rtsPA^ ropy 



X) 

7 

i) r Tf 

ComTAPB 1? I<- - 'll t\o 
fp do -tlo /A'c W 



W 




W w 
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-f 



(5* f^A L G GiV \ L i 6 ^ ^ Q, U/4T 

A3“jo/h^ -i R t cA LLy ZvA^iCHtoKJS ^i^o\/ tvf>^G' 4 

foRce R CV 0 5t-n^e /AJ Coi^VResSfOhj) 

0 



P = P, C^ ^ Q 



t-k' 



V V 



i = /c 



- n C05S^ gi,5;m ^ 

^Hene 'R, ~ _ , _ i=*^ 

ey COJ e^ 2- /ii- + 3/« (^ 

V.SO 



®< - ©*< ^ /v; T/. 6>^ ^ ir. - Sk 

Uo , ^ O ^ 

i = 0 



K 

kL^ 

V ^ ire 

Ir u 



Qk = - fi 3/*> ©^ + Q,^ C05 ©^ ^ Ji'rt 2- l^i ■+ coi ©|< 2. ur^- ^ j?g 4.5, 

4‘:o 6--0 



I.' K 



V^ir 



= - Po ■S’/'n 9 < -+ Qo coj ©,< 4 Q,g^ ^ ,-p^ c or a <- 

l=K \.i « 



viueee <a.fix - ©,<• 2- h^, -f Co j c3^ 2i_ 

'■*'" y<.>Vn 

l=tc ' 

El J' 

£. = 0 



Mi< = I'^o- +a,y,< + z_ z. Vc.CyK-yi) - P^^VK-^r) 

L=0 t-O 

= Mo -'Po -4- G^oVk -i- Mf, - -Y^j 

WHeRe Mg^- |l 2-0-4 ^ vT(yK-yO 



I’s K 

TT^o ^^0 

/{SSui'^e STAMcm^/ii TO !2>6 V>>^ COA^MSct^ZI 

\W-r&i?fJAL Gi\^eR6-y JXoP<?0 in' Wi?? lin'D(5i? UOAJ): 




a© 7 4^ ae J X,^ ^4.^ 

iz -.-!-i>il’'i!^'=Jl JR« = o 

^,0 - £/ A^dP/'^^J A, 6?o ^7 ^ 

iz ^ f|< -I- -i- ( /t^i^il + i- (f Zf i£l5 J\. §L JRp ^ o 

<i A^dQ.Q ^ J A^ d G^ £ y Xj^ 4 do 

jMo ^=-J'VtiM. A*: Jm<, ^ cJin* (ve JMo 






// r*c/ 2J?( 



[Jfzdzc(.p 

= Z^= 01 ffzc/^clx 

TX rx jy 



dp, 

Jp, 


= c oj 


<9 


^ —5 //I 0 

d Fo 


iz 


* <5‘»'ta 


G 


JQi^— CoS(P 


4 GLo 








d 


= 0 




0 (Sk ;: 0 


4 |Vt c 






dllo 


V 


4 1 

X ~ 


R : 


dl- dy 


J3 


-Airy 


X 


dl- PJ® 


■R 


< 2. 


< J> 


: A\.=«i^ 


T! 


’■ = D 




; <i ^ = 4 y 



It 


- ^If 


<d Ra - c oT © 


dPo 


N 


dP, 


dJ^Kc 


-V 


4J?._ 1 


Ja, 




d&o 


AMk _ 


: 1 


JJ?« _ 1 


d IH. ' 




cJiH. (Vyr-Yft 



/V.i' 



CAS 

NOP 

TRA 

CLA 

PDF 

STQ 

LXD 

TRA 

LXD 

INDDD TXI 
REM 

INSEL CLA 

STO 

CLA 

STO 

CLA 

STO 

CLA 

STO 

CLA 

STO 

CLA 

STO 

CLA 

STO 

CLA 

STO 

CLA 

STO 



A 



TEMP 1-18 



c-f-S — 



' 1 



TEMP 4-3 — 



C0NST*2 
TEMP 4-2 
NIX,1 
INSE J — 



NIX,1< ' 

INSEI,2 I 

STORE INTERMEDIATE DATA 
TEMP <■ ' 

LOC ♦■6,1 

TEMP ♦•I 

L0C*7,1 

TEMP ♦-S 

LOC ♦8,1 

TEMP +3 

LOC*9,l 

TEMPOS 

LOC^-10,1 

TEMP ♦6 

LOC *11,1 

TEMP *7 

LOC ♦IS,! 

TEMP ♦8 

LOC *13,1 

TEMP ♦9 

LOC ♦14,1 



(T o /‘I I ' I A,-/ ' n / ' // •/ () / ,,, 



//■' IV' -i- Jc) CoJ /-VCA .-liA' ^iO 
U/ 

a. 

C T /A /)( y f 

\A/ = C0K>s~r c’ i/4-a’ wis: fi f'k/iMC 
/K>i>£:y 2. 

COAMV K'c A' /'aMA'^F 

■tuJ 



V 

3 

W 

W 

A 

A 

a 

a 

X 

X 

c 

c 
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I 



TMC 4 3 T 0A( pr<0 1'JS W^lVe I'I 4 P£ FoJ? THiS 

I. ivo 3r/4wcH ( oiws < l?o-o 

i. S v^l’MeTt?lc al ioAj)/n/6 /4®ooT c£ An-£ rzL lue :■ Cio-O 
<5HeAf? 3T/?eyj£j ^TfiAih'S ItrNORGD Q S: O 



7W<? eOi ut t,, /S !?/um £ OlUATi 0i'J2 ON TH£ t? 6c <f P/ <V G- PA<^£ -&ecO/i1£: 






ITi 



= CoS 0|, 



= ^ 1 ) Cos &|< -*■ Pgx 

|v\k= Mo-'P. - ■ 

£Nei?G-Y £&uATiohJS TiecoP^Si 

dir _ 



d M _ _ 2 ., 
dPo “ 



d Pk 

d m (. " ° 
dMo “ ' 



c:^ + j. ^ ili djv jl = 0 

4?0 ® r d?e e r Xx dP, 

CCJ ©<jJL - 



JV- 

dl^c 



-?o P ^ f ^ Cojg ic- _ l^e^Z trJ 

— fj^j^<<u-t.j_r m£ d I = o 

<= / A If T?< e / Xk dPo 

C ^ 1 ^ 0 -'ip Z-K+ _ o 

^ 2T< / 



dl = 



- 'Po I u -»- M* f 



THG /N'"'"? & ?4T/ OWS ARG A Pr’ p? O X; A>TGj) BV S’ y /‘IMAT/cwS J 

JL= b 



Kz n 


✓ i s 


KiKl 




Kr« 


'To 2__ ( 


'^COJ ©t 1 Zk- ' 


) -t- Mo Zl-( 


'^) 


' ^ 2:^ ( 


H=o 


^ Xk; 


1 I<zc 




IC-0 



? f Psx - M#y 



'^IC ) = 

x< / 



Kiri 



|<=0 Ki C? d. |< <.= 0 d-y / 



Fi?o lA UJM tcH; 



"Po =■ 



Mo = 






/V7 






CIA 

PDP 

STQ 

INDEJ TXI 

CIA 

TMI 

TRA 

LXD 

REM 

STZ 

STZ 

STZ 

STZ 

INSEM CIA 
TMI 
CIA 
PDP 
PMP 
PAD 
STO 
CIA 
PDP 
STQ 
PMP 
PAD 
STO 
CIA 
PAD 
STO 



TEMPOS 

C0NST4-2 

TEMPOS 

1 



LOC*l,l-*-J 



4 ^ 1-2 



INSEJ 



1 



NIX,3< 

CALC OP REDUNDANT FORCES 
TEMP 



TEMP*-! 



TEMP*-2 

TEMPOS 

LOC*-!,!-^ 



INDEK*-!-- 



1 



L0C*-19,1 

L0C*-10,1 

L0C*-19,1 

TEMP 

TEMP 

LOC*-l,l 

LOG *-12,1 

TEMP *-6 

LOC*-l,l 



TEMP 
TEMP 
TEMP *-6 
TEMP*-1 
TEMP*-1 












W 

a 

\f-> 

j>>y a 

z 

IF LSAI/^ loop 



-RSS&T 


/prices 




SST TO 


Z<5/?0 




Ssr- TO 


zei^o 




jtf-r TO 


2£i?0 




ser TO 


zei?o 




z 






IP z = - 


ij L eA 


LOOP 


cos & 







A 

coo & 

£■ C03^©^ 

£T 

■z 

r 

z 
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CIA 


L0C»3,1 


1 

1 


PDF 


L0C»10,1 


1 

1 


PMP 


L0C^19,1 


1 


PAD 


TEMP 4-2 


1 


STO 


TEMP ♦■2 


1 

1 


CIA 


LOC 4.5,1 




PDF 


LOC 4.12,1 


1 

1 


PMF 


LOC 4.1,1 


1 

1 


CHS 




1 


PAD 


TEMP 4.2 


j 


STO 


TEMP 4.2 


1 


CIA 


CONST*! 




PDF 


LOC *12,1 




STQ 


TEMP *6 




CIA 


TEMP *6 




PAD 


TEMP *3 




STO 


TEMP *3 




CIA 


LOC *5,1 


1 


PDF 


LOC *12,1 




STQ 


TEMP *6 




CIA 


TEMP *6 




PAD 


TEMP *4 




STO 


TEMP *4 


1 


INDEK TXI 


INSEM,1 




CIA 


TEMP*!^--- 


J 


CHS 




STO 


TEMP*1 


CIA 


TEMP *4 



T£)c 

A 

Coo & 

'pgn c a; & 

2. A 

fis* coje- 

2- -;5 

Mff y 

X. 

z . 

— TVx cec & 
2- — — 

— rrfex C<S><3C9 

*• 7f 

1.0 

X 

'/X 

E '/t 
E 

Mtfx 

X 

M(?x4- 

Me«/£ 

£ M#y/- 

EVr 

-rVx 

r- 

^ X 



/^l-l 
X -J 
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PDF TEMP«-3 
PMP TEIAP^-l 
FSB TEMP ♦>2 
STO TEMPI'S 
CIA TEMP«-1 
FDP TEMP +3 
PMP TEMP^l 
CHS 

PAD TEMP 

STO TEMP ♦•7 

CIA TEMPOS 

PDF TEMP 4-7 

STQ REMEM+11 
CIA REMEM^ll 
PDP TEMPOS 

PMP TEMP«-1 

STO TEMP«-6 

CIA TEMP ♦■4 

FDP TEMPOS 

STQ TEMPi-7 

CIA TEMP ♦7 

PAD TEMP4-6 

CHS 

STO REMEMi-12 
TSX R,4 



r 



-5: Vi 



2- <r 

T^tc C(ys& _ y^gx 

-tr- rf j 



2. 

T. 

To 

Z '4 

-z^± 

Z 

2 '/l 

(z )(t 

(r 

?o(- 2 "-d)(€'/rr' 






V- t 



|Mo = (z ^-4 

PkmX ojT Po , l^v 



rl 



PZE REMEM i»11,0,REMEM 1-12 

REM ACCURACY TEST FOR REDUNDANT FORCES 

CIA REMEM+ll 7’ (coi^/^v-reD) 



FSB REMEM^13 
PDP REMEM<-11 



'?6 esTii^A-rd) 

?o (.coitpuTev) 
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/J^ 



STQ TEMP 
CIA TEMP 
SSP 

CAS INPUTi-11-. 

TRA INSEN 

NOP 



CLA REMEM«-12-«-- 
PSB REMEM 14 
PDP REMEM 1-12 
STQ TEMP 
CLA TEMP 
SSP 

CAS INPUT^ll--) 

TRA INSEN ji 

NOP I 

I 

TRA EXIT ^ 

REM ALTERATION OFl 

INSEN CLA REMEMi-11 U 

PAD REMEM*13 

PDP CONST^-2 

STQ REMEM<-13 

CLA REMEM+12 

PAD REMEM<-14 

PDP C0NST<»-2 

STQ REMEM^-14 

LXD NIX,1 



aTI 



£,Po 

C>Po ^1' 

£5T//t^ATe) 

Ho (com Pi/rs-p) 

Al>1 « 

t. Mo WITH 6X 

IF A Mo > 

-I IF Mo ^ AT 

ESTIMATED REDUNDANT PORCES 

1^ (coAipyTfrO) 

Po (?I^6\^I00 5 £sriMAT(Sj 
X 

IV 1 (, (CO)VI pUTgJ^ 

ho esTiiHArej 

X 

ho (NdW SSTii<^Arg) 
PeilrT /AJjjex J, 



REM INSERT NEW EST OP REDUNDANT PORCE AND MOMENT 
INSEO CLA L0C<-1,1^' — I j ^ 

-I I lPZ = -l l£'AV£ LOoT> 



TMI INDEI4-5- 



/5X 



I 
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INDEL 

EXIT 



INSEP 



FIVE 

SIX 

INDEM 

END 



LDQ 

PMP 

PAD 

STO 

LDQ 

PMP 

CHS 

PAD 

PAD 

STO 

TXI 

LXD 

REM 

TSX 

PZE 

CLA 

TMI 

CAL 

ACL 

SLW 

CAL 

ACL 

SLW 

TSX 

PZE 

TSX 

PZE 

TXI 

HLT 



iS’t 

REMEM^IS 

L0Cfl9,l 

LOCi-3,1 

L0C^22,1 

REMEM ♦ 13 

LOC*l,l 






REMEM 14 

L0C*5,1 

L0C«-24,1 

INSEO,l 1 I 

NIX,1-^ ' 

PRINT OUT ANSWERS 



R,4 

REMEM <-11 , 0 ,REMEM^12 
LOCi-l,l-< 



END 

CRANK 



FIVE 
FIVE 
CRANK 
SIX 
SIX 
N,4 

L0C-50,0,L0C-48 
S,4 

LOC-44,0,LOC-41 
INSEP, 1 



1 



I 



f. 

cqs & 

Tff X 

p=r ^ To Coi e 

?o 

z 



Mo 

M= Mgr,. + /'lo- 

Reser l 

"PR I fJT 0 0 T P« J Mo 

z 

JF L€A^£ LOQ-P 



0 or z, "/ 



PRINT OUT 'Po'jTf, D,\^ 
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L TRA BLOCK 

BCD 76H AREA-E15.8,6H N-F6.1,6H A=P6.1 

M TRA BLOCK 

BCD 812H INERTIA PL=E15.8,16H INERTIA MIN=E15.8 
N TRA BLOCK 

BCD 810H LOCATION =P6.1,6H Z«P6.1,6H Y-P6 . 1 

0 TRA BLOCK 

BCD 627H LENGTH/RADIUS OP GYRATION -P6 . 1 
P TRA BLOCK 

BCD 918H L0CATI0N-P6.1,4H Z-P6.1,4H Y=P6.1,5H WT=P6.1 

ft TRA BLOCK 

BCD 918H NEUTRAL AXIS SAG-P6.1,19H NEUTRAL AXIS HOG-F6.1 
R TRA BLOCK 

BCD 67H P0=E15.8,7H M0=E15.8 

S TRA BLOCK 

BCD 95H TW=P6.1,5H TP=F6.1,4H D=P6.1,4H W=P6.1 

INPUT BSS 30 
LOAD BSS 100 
ASIDE BSS 15 
REMEM BSS 15 
LOC BSS 5000 

CONST DEC -1.0,1.0,2.0,0.29289,-0.4292 

DEC 12. 0,40000., 1.70, 7. 7855, -0.04 

DEC 0.29767,-0.02171546,1.5708,0.8660,0.50 

DEC 10414. ,0.0127, 30. ,18. ,324.0 

DEC 54., 9. 6, -1.6, -0.88, 16970. 6, 20., 1.5 

DEC 0.90,1.10,2240.0,144.0,5.0,0.0,0.0,0.0,0.0,0.0 
TEMP BSS 40 
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NIX 



PZE 



CRANK PZE 


50,0,50 






HANDL PZE 


0,0,24 






PZE 


0,0,49 






PZE 


0,0,9 






PZE 


0,0,2 






00008 TRA 


INSDF 


^SCA7£ f:Ro ^1 


i^c) 


INSDF SXD 


TEMP*17,1 






LXD 


0,1 






TNX 


INSDG, 1,4 






CAL 


0 






HTR 








INSDG CAL 


0 






STA 


INSDH 






PXD 


0,0 






LXD 


TEMP«-17,1 






INSDH TRA 


0 






END 


START 






CST 


M885»721=PR0GRAM 






REM 


INPUT INFORMATION 


FOR PROGRAM M885 




SAP 


M885-721-INPUT 






LST 


OFF 






ORG 


INPUT 






DEC 


(FT) 


DEPTH 




DEC 


(FT) 


BEAM 




DEC 


(FT) 


BILGE RADIUS 




DEC 


(FT) 


FULL LOAD DRAFT 




DEC 


(FT) 


WAVE CREST HEIGHT ABOVE KEEL 
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DEG 


(IN) 


INITIAL FRAME SPACING 


DEG 


(IN) 


INCREMENT OP FRAME 


SPACING 


DEG 


(IN) 


FINAL FRAME SPACING 


DEG 




INITIAL N™BER OP 


LONGITUDINALS 


DEG 




INCREMENT OP NUMBER OP LONGITUDINALS 


DEG 




FINAL NUMBER OF LONGITUDINALS 


DEG . 


(0/0) 


ACCURACY CRITERION 


FOR MOM. OF INERTIA 


DEG 


(PT-TONS) BENDING MOMENT SAGGING 


DEG 


(PT-TONS) BENDING MOMENT HOGGING 


DEG . 


(FT) 


MINIMUM HYDROSTATIC HEAD 


DEC 


(PSD 


ULTIMATE STRENGTH 




DEC 


(PSI) 


YIELD STRENGTH IN 


TENSION 


DEC 


(PSI) 


YIELD STRENGTH IN 


COMPRESSION 


DEC 


(PSI) 


YOUNGS MODULUS 




DEC 


(PSI) 


SECONDARY BENDING 


STRESS AT PLATE 


END 0 









PMD M885-721-PR0GRAM 
PMR LOG, LOG 4" 1000, FLO, PPR 
GLR 
PAK 

RIP M885 -72 1-DATA -DAVIS 
RIP M885-721-INPUT 
RIP M885 -72 1-PROGRAM 
BGN M885-721-PR0GRAM 
XPM M885-721-PR0GRAM 
TER M885-72 1-PROGRAM 
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’ 0 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



Index of Addresses And Their Contents 



•1.0 


SCANT 0 


BEAM DESIGNATION 


1,0 


tt 


1 


II II 


2.0 


tt 


2 


II II 


0.29289 


tt 


3 


Aj 


•0.4292 


tt 


4 




12,0 


tt 


5 


Ij 


40000.0 


tt 


6 


Ijyy 


1.70 


tt 


7 


blank 


7.7855 


tt 


8 


blank 


■0.04 


tt 


9 


d 


0.29767 

0.02171546 

1.5708 


INPUT 


’ 0 


D 


0.8660 


tt 


1 


B 


0.50 


tt 


2 


R 


10414.0 


tt 


3 


P 


0,0127 


tt 


4 


W 


30.0 


tt 


5 


a,, a 


18.0 


tt 


6 


Aa 


324,0 


tt 


7 


a/ 


54.0 


tt 


8 


n. 


9.6 


tt 


9 


t n 


•1.6 


tt 


10 


n/ 


•0,88 


tt 


11 




16970 


tt 


12 


M,^ 


20.0 


tt 


13 


Mr 


1.5 


tt 


14 


Ho 


0.90 


tt 


15 




1.10 


tt 


16 


Oyp 


2240.0 


tt 


17 




144.0 


tt 


18 


E 


5.0 


tt 


19 





PLATE 0 
" 1 
" 2 



Ib/ft^ 

t 

t2 
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K 

s: 






o 

Svj I 



J 

jlliy ,5l.jlr0 

U| l' 

U In in 

i-v 



O 

> 









b^ 



9 

^ f. 






^ «3f 14 vj 



0 

KJ 

1 

i ® 

•S 3 

v% 3 - 



iJ 
I 

O 

sstsr 



In) 



/nJ 



iS 

sy 



O 

*o " 5 : 
o 
-a 






m 



rf' hT 



W llJ W l/J 



> 

H 









I I 



or> ^ 



^ I , 4 o fj J I rl J ^ I 

CL^ ^ *x!< H u 






>> I 
/• 



I 

-H 



i O 4 



0 ) 0 ) 

u 



H <c>f 

h 






\j' 

I 

-T) 



o 



JX -a 



-O ^ 



Uj 



W 

s + 



o- ‘/>\ ^ 
> *i i 






r>l 



^ D- 

+ + 



^ r^ 0 “ 

*- r< 

4 V> ^ 



-w 



S> 

- |H 



'IH 






1^ 



/S7 



'if 

>0 

'=«: 



- w 

•t + 



> 

1 - + 






3 r- 



' 

I 

+ + 



»b _ 












-y- 



O 

y 






o 



> 






o 

to 



=S 



\J 



> 



3 



o 



s 



4 -^ +^F> 5 < 0 H 






K 

\H 

S- 



*5 

o 



^ o 



£ b 

i f 

vb 0 ) 

w h 
Vi) 

H W 
^ 5 - 

Vi) Vn 
fO ^ 



0 ) 

>» 

v^ 

M) 

P 



pa 



U 1 ^ >* 



><. 

5 



u 



•J 



<0 ' JsC 
o 3 

i ® 

0 v» 

.5 5 

1 5 

W H 



< 






(0 

r» 

V> 



-*■ 

a 

c 

n 

3 

A i 

<» 2 

-S o 

n 

X X 



u 



s: 






> 5 ^ 

Vi'.H 



i< 



< 

S 3 

:r X 



<D 0 

£ ? 

^ 0 

V/) lo 



IL ci 






0 r 4 
o O 
l/sj 

ll 



(D 



1 1 >-^ 



v» 

"V 

s 

i 

5 *-t 



\j H ^ 



^ H ^ 
H 4 



^ i; 



44 4?i 4.^; i ; 4T4'.-^:: 



o - - - 

•*4 






+ I 

b' 



•I +31 






> 



or 

€ 









o 















o 









>- 

fi 



f\ 



< 

< 



|: 

K ■ 



& 



vo-»*vt>ci^0^4 

4^4<- + + ++ 4 4. + f+ f + 

u 



> 



n \ry 

Vt VS) 

1 3 

2 ^ 

^ ^ i-0 * •» 

N ^ 



I 

■J 2 

•5 



Ith|? 

Is 



1 1 
E I 

u 

+ 0 »o 

'N 



H »o n VI 
ID Ul ^ VD 
C^O ^ 



4 , i . +o 
h H H 

I I I 

— -rl 






o ‘o 
JU) U> 
o ^ 

“Kj * V) 

'N H 



d 



-*•_! *. 
S X 



+ 4. ^ 



> *y> o 

4 + ->. 4- -f 4. 



^ r ^ T? ^ 

4^ i> + V 



\!i 

S- ^ - 



'- = /i'? ^ 



/^o(<6rvir{^ 

r<s Cf sTj 
MoCe-JT:^ 



PLOW DIAGRAM FOR CALCULATION OP WEB PRA^tE DIMENSIONS 



Note: assxome that all scantlings and plating have been selected. 



Compute area and first and second moments 
thereof 

Locition of neutral axis and moment of 
inertia 



Com^te Q, first moment of area for 
each location 

is z^fO? NO ■ 



'f* 

Compute sin© and cos© for each 
location 

is z< 0? NO 





Compute hydrostatic and internal load 
components for each location 
is z<0? NO — 



^ 

Siammation of external forces for each 
location 

is z<rO? No — 



y 

Calculate the shear force factor Vb/l 

^ 

Compute shear forces for each location 

is z<0? NO — 



Vf? 

Compute moments caused by external forces 
including shear forces 

is z<0? NO 



— f 

Compute axial and shear forces in the frame 
due to external loads and shear forces for 
each location 

is z < 0? ^ 



i 
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Compute web dimensions 



h- 

Compute area and moment of inertia of Web 

i 

Compute section moduli of web 

I 

Calculate stress schedules 

are total stress less than yield 

stress? yes 



V 

Increase D (depth of web) 

Is D<^ 60tvy? fJ 0 



Y 

Increase W (flange width) 

Is W^SOty^? /v/o — »set D»^W, reset LOC-^v 



Increase t 



w‘ 



->reset LOC 



V 

Store web dimensions 

is z 0? /VO sar 



Calculate redundant forces and moments 



> 1 ' 

Accuracy test for redundant forces and 
moments. Is the accuracy criterion 

satisfied? I'^O alter and insert-* 

redundant forces 
and moments 



\' 

Print out answers and 
end program. 
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